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SUMMARY 

A steady-state computer simulation model has been developed to describe the 
performance of the total Six-Man, Self-Contained Electrochemical Carbon Dioxide 
Concentrator Subsystem, referred to as CS-6, as built for the Air Revitalization 
Group (ARG) of Space Station Prototype (SSP) . The math model combines expressions 
describing the performance of the Electrochemical Depolarized Carbon Dioxide 
Concentrator (EDC) cells and modules previously developed with expressions 
describing the performance of the other major CS-6 components. The model is 
capable of accurately predicting CS-6 performance over EDC operating ranges and 
the computer simulation results agree with experimental data obtained over the 
prediction range . 

Two computer programs were written utilizing the mathematical expressions devel- 
oped to describe CS-6 performance. The first computer program, referred to as 
the CS-6 Base Program, calculates the steady-state performance characteristics 
of the CS-6 subsystem and its components, including intercomponent and subsystem 
fluid interface parameters, component and subsystem power and heat generation, 
and subsystem equivalent weight. The second program, referred to as the CS-6 
Cabin pC0 2 Simulation Program, utilizes the CS-6 Base Program with minor modi- 
fications as a subroutine to describe the daily cabin partial pressure of carbon 
dioxide (pCO_) profile that would result from using the CS-6 as the carbon 
dioxide (CC^J removal subsystem in a simulated spacecraft air revitalization 
application. The program takes a daily CO^ generation profile and cabin volume, 
and calculates and subtracts the C0 2 removal rate to arrive at the daily cabin 
pCC 2 profile. 

Seven experiments were conducted in support of the math model to (1) establish 
the performance characteristics of the CS-6 and of the individual CS-6 subsystem 
components and (2) verify the predictability of the two computer programs. The 
experiments performed characterized the electrochemical modules, the process air 
blowers, the cooling air blowers, the hydrogen (H 2 ) flow sensor and distribution 
mountings, the primary controller, the emergency controller, and the steady- 
state CS-6 intercomponent interface parameters. 

INTRODUCTION 

In parallel to the development of an Electrochemical Carbon Dioxide Concentrator 
Subsystem, Life Systems, Inc. had developed a steady-state computer simulation 
model to predict the performance of the Electrochemical Depolarized Carbon 
Dioxide Concentrator (EDC) cells and modules over a wide range of operating 
conditions . ■' The objectives of the present program were to (1) expand this 

existing model to predict the performance characteristics of the total Six-Man, 
Self-Contained Electrochemical Carbon Dioxide Concentrator Subsystem, referred 
to as the CS-6, as built for the Air Revitalization Group (ARG) of Space Station 
Prototype (SSP), and (2) develop two computer programs using the expanded model 
to predict the steady-state performance characteristics of the CS-6 (first 
program) and to determine the daily partial pressure of carbon dioxide (pC0 2 ) 

HI All references cited are listed at the end of the report. 
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profile for a given spacecraft cabin volume and carbon dioxide (CCL) generation 
profile (second program). ^ 

To accomplish the objectives of the program, the program was organized into 
three tasks and a program management function. The specific objectives of these 
tasks were to: 

1. Perform supporting experimentation to characterize subsystem com- 
ponents and to verify the performance predictions of the expanded math 
model . 

2. Prepare the CS-6 Base Program by expanding the EDC computer simulation 
model to enable predicting the steady-state performance characteristics 
of the CS-6 as a total subsystem. 

3. Prepare the CS-6 Cabin pCC> 2 Simulation Program to predict CS-6 re- 
sponse to a specified, repetitive CO generation profile for a given 
time period and a specified cabin volume. The pCO Simulation Program 
allows CS-6 performance to be characterized as a function of time for 
constant input parameters, current and process air flow rate (Control 
Mode A), and variable input control parameters for current and air 
flow rates as a function of cabin pCC> 2 (Control Mode B) . 

The CS-6 Subsystem and component testing was completed and the results were used 
to develop the mathematical expressions describing CS-6 performance. These 
experimentally obtained correlations were then combined with subsystem and 
component mass and energy balances to write the CS-6 Base Program. The CS-6 
Cabin pC0 2 Simulation Program was then prepared using the Base Program as a 
subroutine to calculate CS-6 performance parameters as a function of time. 

CS-6 SUBSYSTEM 

The CS-6 was designed specifically as the Carbon Dioxide Collection Subsystem 
(CCS) for the SSP program. The function pf the CS-6 is to remove 6.0 kg (13.2 
lb) /day) of CC> 2 from the cabin atmosphere *&nd deliver the CCL premixed with 
hydrogen (H 2 ) to the C0 2 Reduction Subsystem. The major components of the CS-6 
are the electrochemical modules that actually perform the CO- removal function 
and the supporting hardware required to manifold the process gas streams (blowers, 
valves, ducting, etc.) and control the CO removal process. The detailed sche- 
matic of the CS-6 subsystem is presented in Figure 1. The design specifications 
for the CS-6 are presented in Table 1. A detailed description of the operation 
and components of the CS-6 has been documented previously in literature. (2*3*4) 

The description of the CS-6 subsystem that follows details how the subsystem 
process streams and hardware were viewed for math modeling purposes. 

Process Streams 

A simplified functional schematic of the CS-6 subsystem is given in Figure 2. 

The actual arrangement of the CS-6 hardware is in two identical process loops. 
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TABLE 1 CS-6 DESIGN SPECIFICATIONS 


Number of Crew (Continuous) 

C0„ Removal Requirements 

Nominal (48-Hr Average), kg/d (Lb/Day) 
Maximum (4-Hr Duration) , kg/d (Lb/Day) 

Cabin Atmosphere 

Total Pressure, kN/m^ (Psia) 
Temperature, K (F) 

Dew Point Temperature, K (F) 

0 2 Partial Pressure, kN/m 2 (Psia) 

CO Partial Pressure 

Nominal, N/m 2 (mm Hg) 

Operating Range, N/m 2 (mm Hg) 
Diluent 

Process Air 

Total Pressure, N/m 2 (Inch Water) 
Temperature, K (F) 

Dew Point Temperature, K (F) 

0 2 Partial Pressure, kN/m 2 (Psia) 

C0 2 Partial Pressure 

Nominal, N/m 2 (mm Hgl 
Operating Range, N/m 2 (mm Hg) 
Diluent 

Cooling Air . 

Total Pressure, N/m 2 (Inch Water) 
Temperature, K (F) 

h 2 Supply 

Total Pressure, kN/m (Psia) 
Temperature, K (F) 

Dew Point Temperature, K (F) 

H^ + CO- Exhaust 

Total Pressure 

Electrical Power 


Purge Supply 

Type Gas - 

Pressure, kN/m'' (Psia) 

Packaging 

Gravity 

Allowable Downtime 
Duty Cycle 


6 


6.0 (13.2) 
9.3 (20.4) 


101-105 (14.7-15.2) 
291-297 (65-75) 
281-287 (46-57) 
21.0-22.6 (3.04-3.28) 

<400 (<3) 

200-400 (1.5-3) 

Air Constituents 


Ambient + 1495 (+ 6) 
Dew Point + 3.34 (+ 6) 
281-283 (46-50) 
21.0-22.6 (3.04-3.28) 

381 (2.86) 

200-385 (1.5-2.89) 

Air Constituents 


Ambient + 1495 (+ 6) 
Process Air Dew Point 
+ 3.34 (+ 6) 

<138 (<20) 

291-297 (65-75) 
283-289 (50-60) 


Ambient 

106-122 VRMS, 400 ±40 Hz, 
30, 5 Wire 


3?0 (45) 
Self-Contained 
0-1 g 

8-12 Hr 
Variable 


(a) The SSP Specification cites potential orbital On/Off cyclic operation. 
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FIGURE 2 SIMPLIFIED CS-6 FUNCTIONAL BLOCK DIAGRAM 
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Each loop has its own process air blower, cooling air blower, ^ flow sensor and 
distribution mounting, and three EDC modules. For math modeling purposes, both 
process loops have the same performance characteristics. The simplification of 
the subsystem hardware shown in Figure 2 reduces the number of computer program 
outputs (and computer running time) required to describe CS-6 performance without 
sacrificing model accuracy. 

Process air is drawn from the inlet portion of the plenum through the cathode 
compartments of the electrochemical cells by the process air blowers. Carbon 
dioxide is removed from the flowing air stream as it passes over the cathode of 
the EDC cells. The CO^-depleted air stream is then returned to the outlet 
portion of the plenum. Likewise, cooling air is drawn by the cooling air blowers 
from the inlet portion of the plenum over the external fin portion of the electro- 
chemical cells. The cooling air, at a higher temperature, is then returned to 
the outlet portion of the plenum. Excess process air entering the plenum bypasses 
the subsystem through the plenum air bypass. 

Process H 2 used by the electrochemical modules is manifolded to each module 
through two identical sensor and flow distribution mounting blocks. Each 
flow distribution block equally manifolds flow to each of the three 16-cell 
modules it serves. The H 9 flows in series through the 16 cells of each module. 


Hardware Description 

The CS-6 subsystem components were divided into Line Replaceable Units (LRUs). 

The list of the major subsystem LRUs is presented in Table 2. Front and rear 
photographs of the CS-6 showing the LRUs are presented in Figures 3 and 4, 
respectively. Each of the LRUs were analyzed for power required, heat generation, 
effect on gas stream pressure, temperature and composition, and actual component 
weight for use in the total subsystem equivalent weight determination. Those 
components that did not require power ( a ), generate heat, or affect gas stream 
parameters during steady-state operation were not modeled. The LRUs not modeled 
were the process air sensors, the electric shutoff valves, the backpressure 
regulator, the pressure sensors, the combustible gas sensors, and the manual 
shutoff valve. The electrical, motor-driven shutoff valves are not actuated 
during normal operation and hence require no power and generate no heat. Their 
actuation only occurs during mode transitions (such as normal to shutdown); 
however, even then the energy requirement is less than 57.5 J (0.016 watt-hours). 
All other components were characterized for use in the computer simulation 
model. A brief description of those LRUs that were modeled follows. 

Electrochemical Modules 


The CS-6 contains six electrochemical modules. Each of the electrochemical 
modules contains 16 cells. The electrochemical modules perform the actual CCL 
removal process by removing CC^ from the cathode air stream and concentrating it 

(a) All sensor power required is accounted for in the controllers. 
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TABLE 2 CS-6 LINE REPLACEABLE UNITS 


SSP Item Qty. 

No. Reg’d 


Module, Electrochemical 

890 

6 

Blower, Process Air 

543 

2 

Blower, Cooling Air 

345 

2 

Sensor, Process Air 

875 

4 

Valve, Shutoff, Electric 

305 

3 

Valve, Shutoff, Electric 

306 

6 

Mounting, H 2 Flow Sensor § Distribution 

882 

2 

Valve, Regulator, Backpressure 

310 

1 

Sensor, Pressure 

877 

3 

Sensor, Combustible Gas 

178 

4 

Controller, Primary 

871 

1 

Controller, Emergency 

872 

1 

Unit, Data Acquisition 

970 

1 

Mounting, Load Transistor 

876 

1 

Valve, Shutoff, Manual 

507 

1 
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Load Transistor 
Mounting, 
876-31 


Primary Controller 
871-31 


Emergency 




Electrical Shutoff 
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305-34 
305-35 
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Data Acquisition 
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Process Air Sensor, 
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FIGURE 3 CS-6 SUBSYSTEM (FRONT) 
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Shutoff 


Valves 


Electrical Shutoff 
Valves 

' 306-07 

306-39 


Electrical Shutoff 
Valves 

306-37 
306-38 


Backpressure 

Regulator 

310-32 


o 


FIGURE 4 CS-6 SUBSYSTEM (BACK) 
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into the process H 7 stream. Moist air containing CO^ is fed into the cathode 
where the electrochemical reaction of oxygen (0 7 ) in the air, water, and electrons 
form hydroxyl ions (OH"). The C0 2 from the air'then reacts with 0H~ forming 
carbonate ions. The output from the cathode compartment is moist air at a 
reduced pCCL. At the anode side, H 7 is fed into the cell and electrochemical ly 
reacts witli OH” to form water and electrons. The decrease in the OH" concentra- 
tion in the electrolyte at the anode produces., an equilibrium shift in the electro- 
lyte which causes CO^ to be released. The output from the anode compartment is 
C0 7 mixed with unreacted H~. The overall reaction is exothermic and is accompa- 
nied by the formation of electrical energy. The C0 9 removal process is primarily 
a function of the inlet air pCO^, air flow rate, cell current, and cell moisture 
balance. Cell voltage and power production is primarily a function of cell 
current density and temperature. 

Process Air Blowers 


The CS-6 contains two centrifugal blowers to draw process air from the plenum 
through the cathode compartment of the electrochemical cells. One blower is 
used for each process loop. The process air flows in parallel through the 48 
cells of each group of three modules. The blowers are located downstream of the 
electrochemical modules such that heat generated by the blowers will not have an 
adverse effect on the moisture balance within the electrochemical cells. The 
blower power used to control the cathode air flow rate is dissipated as heat 
into the cathode air stream exhausting the blower. 

Cooling Air Blowers 


The CS-6 contains two vane axial blowers to draw process air from the plenum 
over the fins of the electrochemical modules. Each blower draws the air in 
parallel over the fins of the 48 cells of a group of three modules. All heat 
dissipated as inefficiencies within the electrochemical module that is not 
removed by the cathode process air stream and process streams is removed by 
the cooling air stream. One cooling air blower is used for each process loop. 

The cooling air blowers are located downstream of the electrochemical modules. 

The amount of cooling air required is determined by the temperature differential 
between the dew point of the incoming process air and the dry bulb temperature 
of the exiting process air stream from the module. The cooling air blower speed 
is continuously modulated to vary the cooling air flow rate over the cell 
cooling fins as required. All power used by the cooling air blowers is dissipated 
as heat into the cooling air exiting the blowers. 

Hydrogen Flow Sensor and Distribution Mounting 

The CS-6 contains two flow sensor and distribution mountings designed to 

provide equal H 7 flow to each of the six CS-6 submodules. Each flow distri- 
bution block is located upstream of the three electrochemical modules it serves. 
The distribution block consists of three calibrated orifices and three flow 
sensors. Power required by the flow sensors is accounted for in the controllers 
and there is no heat generation. The blocks do affect H^ stream pressure drop. 
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Primary Controller 


The primary controller controls module current, process (cathode) air flow rate, 
and the process air inlet dew point to module temperature differential. Two 
control modes can be selected, Mode A and Mode B. In Control Mode A, current 
and process air flow rate are controlled at a constant level throughout CS-6 
operation. In Control Mode B, both parameters are a function of an external 0 
to 5 volt DC signal which is assumed to originate from a pC0 2 sensor. The 
module temperature control is independent of Control Mode A or B and basically 
is a control of the cooling air blower speed to maintain the process air inlet 
dew point to module temperature differential constant. The primary controller 
also sequentially actuates subsystem components to place them in the proper 
configuration as dictated by an operating mode command or when an out-of-tol'- 
erance condition is sensed by the primary controller. Primary controller - 
initiated shutdowns are those that are time critical and require immediate 
action. There are four primary controller initiated shutdowns: (1) high H 2 
pressure (48 kN/m (7.0 psig)), (2) low H 2 pressure (<17 kN/m Z (2.5 psig)), (3) 
high H 2 -in-air mixture (>1.5%) in the front of the subsystem, and (4) high IL-in- 
air mixture (>1.5%) in the back of the subsystem. 

Power required to run the controllers, not including the electrochemical power 
generated by the electrochemical reactions, is dissipated as heat to the 
surrounding environment and not to any process stream. 

Emergency Controller 


The emergency controller consists of a shutdown sequencer to provide for proper 
component sequencing during an emergency controller -initiated subsystem shutdown. 
Any out-of-tolerance condition for any one of eight subsystem parameters can 
initiate this shutdown sequence. Those conditions which can cause a shutdown 
are : 

1. High or low module temperature to inlet air dew point temperature 
differential (12. 2K (22F)) above the inlet dew point air temperature or 
less than 8.9K (16F) above the inlet dew point temperature-. 

2. High power transistor temperature in the load transistor mounting heat 
sink assembly (in excess of 366K (200F)). 

3. Greater than 2% H 2 -in-air mixture sensed by a combustible gas sensor 
located in the front of the subsystem. 

4. Greater than 2% H 2 -in-air mixture sensed by a combustible gas sensor 
located in the rear of the subsystem. 

2 

5. High anode gas exhaust pressure in excess of 52 kN/m (7.5 psig). 

6. Loss of primary controller power. 

2 

7. A H 2 exhaust pressure less than 14 kN/m (2.0 psig). 
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8. Low cell voltage in any one of the 96 cells (less than -0.25V). 

Power utilized by the emergency controller is dissipated as heat given off to 
the surrounding cabin environment. 

Load Transistor Mounting 

The load transistor mounting is located in the outlet portion of the process air 
plenum to dissipate the power generated by the electrochemical cell reactions as 
heat and reject it to the process air stream leaving the plenum. 

CS-6 MATH MODEL TEST PROGRAM 

Experimentation specifically aimed at supporting the development of the CS-6 
computer simulation model was required to establish the performance character- 
istics of the CS-6 and its individual LRUs. Seven tests were conducted. Six 
were directly used to characterize the performance of LRUs while the seventh 
established subsystem performance and intercomponent interface parameters for 
eventual math model computer program verification. The six LRUs characterized 
were: (1) the electrochemical modules (to compare predictability of the module 
math model previously developed), (2) the process air blowers, (3) the cooling 
air blowers, (4) the H 2 flow sensor and distribution mounting, (5) the primary 
controller, and (6) the emergency controller. The remaining LRUs consisting of 
valves and sensors were not characterized since valve power and heat loads are 
negligible and sensor power and heat load are included under either the primary 
or emergency controller. 


Electrochemical Modules 

A series of three experiments were conducted to verify the predictibility of the 
electrochemical modules' performance within the CS-6 to determine if any upgrad- 
ing of the previously established EDC cell math model was required. The electro- 
chemical modules were characterized as a function of inlet pCO current density, 
and air flow rate over nominal operating ranges. ^ 

Process Air Inlet pCO ^ 

Module performance, specifically C0 ? removal efficiency, was experimentally 
characterized for a process air inlet pCO range of 67 to 800 N/m 2 (0.5 to 6.0 
mm Hg) . The results of the pCO^ test and the math model prediction curve for 
the test parameters are presented in Figure 5. The correlation between math 
model prediction and experimental data was excellent, thereby verifying the 
predictability of the electrochemical math model as a function of process air 
inlet pC0 2 . 

Current Density 

The effect of current density on electrochemical module performance was character- 
ized for 10.8 to 37.7 mA/cm (10 to 35 ASF). The results of the experiment and 
the math model prediction curve for the test parameters are presented in Figure 6. 
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The test was conducted at CS-6 baseline interface conditions. At steady-state, 
moisture-in-balance conditions, the predictions of the math model as previously 
developed for CO^ removal efficiencies agreed well with the performance data 
observed for the CS-6. At the lower current densities, the EDC cell math model 
predicted out-of- tolerance moisture conditions (wet) due to insufficient module 
heat generation (module subcooling). Subsystem operation at the lower current 
densities yielded lower than predicted transfer efficiencies characteristic of 
operation at wet conditions (5) . The data indicated excessively moist conditions, 
as correctly predicted by the math model. At the higher current densities, the 
math model predicted that the cell moisture conditions were removing water from 
the electrolyte causing the modules to dry out. Subsystem operation at the 
higher current densities yielded higher than predicted C0_ removal efficiencies 
characteristic of operation at dry conditions 1 * ' . The data indicated very dry 
moisture conditions within the modules, as correctly predicted by the math 
model. The deviations from in-moisture-balance operation were caused by the 
variation in cell current density which changes the amount of water and waste 
heat generated while maintaining the air flow rate and process air inlet moisture 
conditions constant at SSP baseline conditions without adjustment in module 
temperature level. 

The previously established EDC cell math model predicts C0 2 removal efficiencies 
based on the assumption that the cells are operating at steady-state conditions 
and that moisture balance is maintained within a specific, optimum range. 
Steady-state operation, however, can also be achieved at less than optimum 
moisture conditions within the electrochemical modules. Since this latter 
condition is a possible operating mode for the CS-6, a moisture balance correc- 
tion to allow prediction of C0 2 removal efficiencies as a function of the cell 
moisture conditions, as indicated by the data, was subsequently incorporated 
prior to completing the CS-6 subsystem math model. 

Cathode Air Flow Rate 


The effect of varying cathode air flow rates was characterized for the range of 
14.2 to 28.3 dnr/s (30 to 60 scfm) . The results of the experiment and the EDC 
cell math model prediction curve for the test parameters are presented in Figure 7. 

Air flow rate has a large effect on the heat and water removal rates and the 
moisture balance conditions within the electrochemical cells. The data used in 
the C0 2 removal efficiency correlation of the EDC cell math model was, as stated 
above, based on cells operating in an optimum moisture balance range and did not 
take into account the large changes in cell moisture conditions caused by varying 
the air flow rate, as experienced in the actual subsystem operation. The C0_ 
removal efficiency correlation of the initial EDC cell math model was, therefore, 
not adequate to predict CCt, removal efficiency as a function of air flow rate. 
Subsequently, additional data gathered on the CS-6 after the completion of the 
original EDC cell math model was used to upgrade the air flow correlation for 
electrochemical modules. This upgraded version was included in the CS-6 Base 
Program. 
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Process Air Blowers 

The two CS-6 process air blowers were characterized to obtain air stream pres- 
sure drops and blower power and heat load as a function of process (cathode) air 
flow rate. The major pressure drop producing components in this air stream are 
the EDC modules. The results of the module pressure drop versus flow rate 
experiment are shown in Figure 8. System pressure drop as a function of air 
flow rate is given in Figure 9. Blower power for the process air blower of 
Section 1 and Section 2 as a function of air flow rate, at a corresponding 
system pressure drop, is given in Figures 10 and 11, respectively. 

The modules and system pressure drop versus air flow rate curves relate typical 
pressure drop data as a function of air flow„rate. The blower power curve, 
however, contains a spike at 14.2 to 16.5 cm /s (30 to 35 scfm), resulting from 
the combination of blower motor characteristics and blower speed control circuitry. 
The spike was verified during all forms of operation and implies^that only a 
small change in air flow rate at flow rates greater than 14.2 dm /s (30 scfm) 
can cause large variations in the blower power requirement. 

Cooling Air Blowers 

The two CS-6 cooling air blowers were experimentally characterized to establish 
blower power, heat load, and cooling air passage pressure drop. The results of 
the cooling air pressure drop versus air flow rate test at two levels of plenum 
inlet pressure levels are presented in Figure 12. The pressure drop associated 
with ducting to and from the electrochemical modules did not significantly 
contribute to the cooling air pressure drop in comparison to the module cooling 
air pressure drop. The cooling air blower power versus air flow rate curves are 
shown in Figure 13. 

2 

Figure 13 shows that for a plenum inlet air pressure of 286 to 336 N^m (1.15- 
1.3S in water), a certain amount of cooling air (approximately 10 dm /s (21 cfm) 
flows through the cooling air passages with the cooling blowers off, i.e., 
blower power equal to zero. The amount of air that bypasses the plenum and 
flows over the cooling fins of the modules, when the cooling air blowers are 
off, is determined by the overall system process air flow rate entering the 
plenum. The higher the total system process air flow the higher the plenum 
pressure differential and the higher the leakage air flow through the cooling 
air passages. Dampers were installed in the cooling air passages to prevent 
this bypass flow from occurring during times when cooling is not required. The 
dampers, however, were not totally leak -tight and some air flow constantly 
bypassed through the cooling air passages during cooling blower off operation. 

This contributed to module subcooling during low current density and high process 
(cathode) air flow rates. 


Primary Controller 

The CS-6 primary controller was characterized to determine the heat load and the 
power required during steady-state CS-6 operation. All blower power, which only 
passes through the controller, is handled separately and is not included in this 


17 



Pressure Drop, kN/m 













Blower Power 


JCife Systems, Jttc . 


Air Flow Rate, C£m 


0 5 10 15 20 25 30 35 



FIGURE 10 PROCESS AIR BLOWER POWER VERSUS AIR FLOW RATE 

(SECTION 1) 


20 



Blower Power 


Cifc Systems, Jhc. 
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requirement. The amount of power attributed to the primary controller to 
control the operation of the CS-6 subsystem at steady-state conditions as measured 
by a wattmeter on the power input was 85 watts. This power requirement is 
constant and independent of subsystem parameter variations (i.e., current density, 
cooling blower speed, or process air blower speed). 

Emergency Controller 

The CS-6 emergency controller was characterized to obtain the heat load and the 
power required during steady-state operation. The steady-state emergency control- 
ler power, as measured by a wattmeter, was 45 watts during normal CS-6 operation. 
This power requirement is constant and independent of subsystem parameter varia- 
tions , 


CS-6 Subsystem 

The CS-6 subsystem was characterized as a function of process air inlet pCO^, 
current density, and process air flow rate to determine intercomponent interface 
conditions between LRUs within the CS-6. The objective of the testing was to 
verify CS-6 math model prediction using these various intercomponent temperatures, 
pressures, etc. The testing consisted of running the CS-6 at steady-state 
conditions and monitoring pressures and temperatures throughout the system as a 
function of changes in inlet pCC^, cell current density, and process air flow 
rate. The location of the sampling taps are shown in Figure 14. The results of 
the tests are presented in Table 3 and were used to verify math model prediction. 
The subsystem was tested using existing ground support test equipment which was 
not capable of supplying the total process air requirement to the plenum inlet. 
Only cooling air was supplied to the plenum. Process air was supplied to the 
electrochemical modules by a separate Air Supply Unit (ASU) a t the required pCO_, 
dew point, and dry bulb temperature. The cooling air stream was at ambient pCO" 
levels, but the temperature and dew point were maintained close to that of the 2 
process air from the ASU. Exact temperature and dew point correlation, however, 
was not obtained. Table 3 represents the data as if the CS-6 had been run in 
its designed configuration (i.e., all process air entering the plenum). Slight 
discrepancies in stream temperatures and dew points are present, but they had no 
affect on the modeling effort. 

Hydrogen Flow Sensor and Distribution Mounting 

The two flow sensor and distribution mounting blocks were characterized to 
obtain the nitrogen (N^) and 1^ pressure drops as a function of flow rate through 
the distribution mounting. The results of the N ? and H~ pressure drop experiments 
are given in Figure 15. The H., pressure drop through the EDC modules was also 
characterized and is presented'in Figure 16. 

CS-6 BASE PROGRAM 

The CS-6 Base Program is the computer program that was written to simulate the 
steady-state performance of the CS-6 as a function of variations in inlet stream 
composition temperatures and flow rates, outlet stream pressures, and the CS-6 
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FIGURE 14 LOCATION OF GAS SAMPLING PORTS 
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TABLE 3 CS-6 INTERCOMPONENT INTERFACE PARAMETERS FOR 
BASELINE OPERATING CONDITIONS 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

3 

Flow Rate, dm /s 

210 

165 

25 

19 

25 

19 

25 

19 

210 

0.162 

0.162 

0.154 

Scfm 

444 

350 

54 

40 

54 

40 

54 

40 

444 

_ 




Slpm 

“ 

- 

- 

- 

- 

- 

- 

- 

- 

9.7 

9.7 

9.25 

Pressure, ]<N/ m 2 

0.242 

0.075 

-0.580 

x (a) (b) (c) 

1.910 

0.030 

0.062 

X 

0.060 

51.3 

34.6 

X 

In H O 

0.97 

0.30 

-2.33 

X 

-7.67 

0.12 

0.25 

X 

0.24 


_ 


Psig Z 

— 

“* 

- 

- 

- 

- 

- 

- 

- 

7.4 

5.0 

X 

Temperature, K 

284 

284 

286 

284 

291 

290 

299 

X 

284 

297 

297 

291 

F 

51.5 

51.5 

55.8 

51.5 

64.8 

63.0 

78.5 

X 

51.8 

76.0 

76.0 

65.0 


Dew Point, K 

277 

277 

282 

277 

284 

277 

284 

277 

279 

296 

296 

286 

F 

40.0 

40.0 

48.0 

40.0 

51.2 

40.0 

51.2 

40.0 

43.2 

74.0 

74.0 

56.0 


(a) Cell current = 4.88A. 

(b) Above ambient. 

(c) X indicates data not taken. 
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control parameters. The CS-6 input variable ranges are given in Table 4. All 
inputs to the computer program are entered in the engineering units shown in 
Table 4. Table 5 is a complete list of the program input and output variables 
and their units. The program also provides various checks to insure that input 
data is within the model’s range of predictability and to identify out-of- 
tolerance operating conditions. 

The program contains previously developed correlations describing the performance 
of the EDC cells. (*) Additional correlations were developed describing CS-6 
subsystem LRUs and process streams. The Base Program combines these correla- 
tions with steady-state mass and energy balances, and the program checks to 
simulate steady-state CS-6 performance. The original EDC math model computer 
program was not used directly as a subroutine in the Base Program since the as- 
sumption of cooling air being delivered at the required rate, optimum moisture 
balance conditions, and exact control of module temperature were not applicable 
because of the characteristics of the subsystem hardware. A certain amount of 
program rearranging was also desired to decrease computer running time by calcu- 
lating those items that require an iterative solution prior to the gross calcula- 
tion of stream variables. 


Model Analyses 

The math model which resulted in the CS-6 Base Program was developed by first 
defining the inlet and outlet stream characteristics and parameters for the CS-6 
at the subsystem level. An initial computer program was written to describe the 
subsystem interfaces by expanding the math model developed for the EDC cells. 

The analyses that were used to derive the mathematical expressions describing 
the CS-6 intercomponent interface parameters were developed and incorporated 
into the initial program as required to calculate the remaining program outputs. 

To clarify variable notation, numerical identifiers were given to the process 
streams and equation variables. The stream identification numbers are presented 
in Figure 17. 

Process Air Correlations 

The inlet process air stream to the CS-6 is divided into three streams: the 
cooling air stream, the process (cathode) air stream, and the air plenum bypass 
stream. Mathematical expressions were required and developed to describe the 
stream flow characteristics and blower power requirements. 

Cooling Air Pressure Drop. The pressure drop associated with flow through the 
cooling air passages is the same as the pressure drop measured across the cool- 
ing air fins of the electrochemical modules since the pressure drop associated 
with the ducting is negligible. The correlation describing the cooling air pas- 
sage pressure drop was derived by a least squares curve fit of pressure drop 
data as a function of air flow rate to a general quadratic equation. The equa- 
tion was forced to pass through the origin so that there would be zero pressure 
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TABLE 4 CS-6 BASE PROGRAM INPUT VARIABLE RANGES 


Cabin Atmosphere 


Total Pressure, P0PSA 

13.7-15.7 Psia 

pCO PC0 

0.5-10 mm Hg 

p0 o 7 PO0PSA 

2-4 Psia 

Process Air Outlet 

Total Pressure, P8PSA 

13.7-15.7 Psia 

Process Air Inlet 

Temperature, T7 

44 -8° F 

0-600 Scfm '-' } 

Flow Rate, V7 

Dew Point Temperature, DW7 

41-70F 

Anode Outlet 

Total Pressure, P4PSA 

14.8-21.2 Psia 

System H 2 Inlet 

Temperature, T9 

65-75F , . 

0-18 Scfm laJ 

Flow Rate, V9SL 

Dew Point Temperature, DW9 

10-75F 

Modules 

Number of Cells in Current, N 

90-96 

Current, I 
DELTl 10 ' 

2.44-9.76 A 

10-25F 

Cathode Air Flow Rate, VI 

19.2-76.8 Scfm (96 cells) 

Penalty Weight Factors 

Power, PWPEN 

0-2 Lb/Watt 

Heat Rejection to Ambient, HTPEN 

0-2 Lb/Btu/Hr 

Water Vapor Rejection to 

Ambient, H20PEN 

0-500 Lb/Lb H^O/Hr 

Oxygen Consumption, OXPEN 

0-3000 Lb/Lb (L/Hr 

Program Control 

NFLAG ^ 

0-1 


(a) Reference conditions for standard flow units: 70F, 14.7 Psia 

(b) DELT1 = (Module temperature - cathode air inlet dew point temperature) 

(c) NFLAG = 0 Out of tolerance moisture conditions do not stop program. 

1 Out of tolerance moisture conditions do stop program. 
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TABLE 5 CS-6 BASE PROGRAM INPUT AND OUTPUT VARIABLES 


Input Variables 

Cabin Atmosphere 


Process Air Outlet 
Process Air Inlet 

Anode H 2 /CO 2 Outlet 
Anode H 2 Inlet 

Modules 


Penalty Weight Factors 


Control 


Output Variables 

Control 

Module 


Total Pressure, Psia 
pC0 2 , mm Hg 
p0 2 , Psia 

Total Pressure, Psia 

Temperature, F 

Flow Rate, Scfm 

Dew Point Temperature, F 

Total Pressure, Psia 

Temperature , F 

Flow Rate, Slpm 

Dew Point Temperature, F 

Number of Cells in Circuit 
Current, A 
DELTlta), F 

Cathode Air Flow Rate, Scfm 

Power Consumption, Lb/Watt 
Heat Rejection, Lb/Btu/Hr 
Water Vapor Rejection, Lb/Lb/Hr 
0 2 Consumption, Lb/Lb/Hr 

NFLAG 0 = ignore out-of-tolerance 
moisture conditions 
1 = abort for out-of-tolerance 
moisture conditions 


Preferred Value of DELT1 ^ , F 

Transfer Index, Lb CCL/Lb 0 2 
Transfer Efficiency, % 

Cell Voltage, V 
Module Voltage, V 
C0 2 Removal Rate, Lb/Hr 
0 7 Consumption Rate, Lb/Hr 
H“ Consumption Rate, Lb/Hr 
Water Production Rate^ Lb/Hr 
Current Density, A/Ft* 

Heat Load of Modules, Btu/Hr 
Power Production of Modules, Watt 


(a) DELT1 = Module Temperature - Inlet Cathode Air Dew Point Temperature 

-continued - 
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Table 5 - continued 


Cathode Air Inlet Total Pressure, mm Hg 

pC0 7 ,mm Hg 
pH 2 0, mm Hg 
CO- Flow Rate, Lb/Hr 
Water Flow Rate, Lb/Hr 
CO* Flow Rate, Scfm 
Water Flow Rate, Scfm 
0- Flow Rate, Scfm 
Flow Rate, Scfm 
Temperature, F 
Dew Point Temperature, F 
Relative Humidity, % 

Cathode Air Outlet Total Pressure, mm Hg 

Module Cathode Air Pressure Drop, mm Hg 

pCO- , mm Hg 

pH-0, mm Hg 

Total Flow Rate, Scfm 

CO* Flow Rate, Scfm 

Water Flow Rate, Scfm 

0* Flow Rate, Scfm 

N- Flow Rate, Scfm 

CO- Flow Rate, Lb/ Hr 

Water Flow Rate, Lb/Hr 

Temperature, F 

Dew Point Temperature, F 

Relative Humidity, % 

Cathode Air Blower Outlet Total Pres- 
sure, mm Hg 

Cathode Air Blower Outlet Flow Rate, 

Scfm 

Cathode Air Blower Outlet Temperature, F 

Process Air Inlet Total Pressure, mm Hg 

pH 7 0, mm Hg 
pN-, mm Hg 
CO- Flow Rate, Scfm 
Water Flow Rate, Scfm 
0 Flow Rate, Scfm 
Flow Rate, Scfm 
Dew Point Temperature, F 
Relative Humidity, % 

Process Air Outlet Total Pressure, mm Hg 

pC0 9 , mm Hg 

Plenum Bypass Flow Rate, Scfm 
Plenum Bypass Pressure Drop, mm Hg 
Total Flow Rate, Scfm 
Water Flow Rate, Scfm 
C0 7 Flow Rate, Scfm 
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Table 5 - continued 


Process Air Outlet 0- Flow Rate, Scfm 

pH 7 0, mm Hg 
Temperature, F 
Dew Point Temperature, F 
Relative Humidity, % 

H 2 Inlet Total Pressure, mm Hg 

Water Vapor Pressure, mm Hg 
Distribution Block Pressure Drop, 
mm Hg 

Module Inlet Total Pressure, mm Hg 

Module Inlet pH 2 0, mm Hg 

Module Inlet pHf, mm Hg 

Total Flow Rate, Scfm 

H- Flow Rate, Scfm 

Water Flow Rate, Scfm 

H 2 Flow Rate, Lb/Hr 

Minimum Required Flow Rate, Slpm 

H 2 Outlet Total Pressure, mm Hg 

Module Anode Gas Pressure Drop, mm Hg 

Water Vapor Pressure, mm Hg 

Flow Rate, Scfm 

C0 ? Flow Rate, Scfm 

H- rlow Rate, Scfm 

Water Flow Rate, Scfm 

Flow Rate, Slpm 

C0 ? Flow Rate, Slpm 

H-'Flow Rate, Slpm 

Total Flow Rate, Lb/Hr 

CO Flow Rate, Lb/Hr 

H 7 Flow Rate, Lb/Hr 

Water Flow Rate, Lb/Hr 

Dew Point Temperature, F 

CO--H- Weight Ratio, Lb C0 7 /Lb H- 

H 2 -C0 2 Volume Ratio, Slpm ft 2 /Slpm C0 ? 

Heat Balance, Modules Modules Heat Load, Btu/Hr 

Cathode Air Heat Pickup, Btu/Hr 
Anode Gas Heat Pickup, Btu/Hr 
Cooling Air Heat Pickup, Btu/Hr 

Cooling Air Inlet Pressure, mm Hg 

Coolant Channel Pressure Drop, mm Hg 
Outlet Pressure, mm Hg 
Flow Rate, Scfm 
Inlet Temperature, F 
Outlet Temperature, F 
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Table 5 - continued 
Cooling Air 

Actual Volumetric 


Equivalent Weight 


Heat Transfer Coefficient, Btu/Hr/Ft 2 /F 
Fin Efficiency, % 

Flow Rate Over Cells in Circuit, Scfro 
In Circuit Outlet Temperature, F 
Cooling Blower Outlet Pressure, mm Hg 
Cooling Blower Outlet Flow Rate, Scfm 
Cooling Blower Outlet Temperature, F 
Cooling Damper Pressure Drop, mm Hg 
Minimum Leakage Flow Rate, Scfm 

Flow Rates Modules Cathode Air Inlet, Cfm 

Modules Cathode Air Outlet, Cfm 

Modules H Inlet, Cfm 

Modules H^-CO Outlet, Cfm 

Modules Cooling Air Inlet, Cfm 

Modules Cooling Air Outlet, Cfm 

Modules Cooling Air Outlet From Cells 

in Circuit, Cfm 

Process Air Inlet, Cfm 

Process Air Outlet, Cfm 

System H- Inlet, Cfm 

Process Air Plenum Bypass Outlet, Cfm 

Cathode Air Blowers Outlet, Cfm 

Cooling Blowers Outlet, Cfm 

Cooling Dampers Outlet, Cfm 

Cooling Blower Power, Watt 

Cathode Blower Power, Watt 

Primary Controller Power, Watt 

Emergency Controller Power, Watt 

Data Acquisition Unit Power, Watt 

Total System Power, Watt 

Total Heat Rejection, Btu/Hr 

Power Consumption Penalty Weight, Lb 

Heat Rejection Penalty Weight, Lb 

Water Vapor Rejection Penalty Weight, LI 

0^ Consumption Penalty Weight, Lb 

Hardware Weight, Lb 

Total Equivalent Weight, Lb 
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In Out 



FIGURE 17 PROCESS STREAM IDENTIFICATION NUMBERS 
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drop at zero air flow rate. The correlation derived for the pressure drop as a 
function of cooling air flow rate was 

AP56 = 0.0101 V5 + 1.303 x 10' 5 V5 2 ^ (1) 


where 


AP56 = the cooling air pressure drop, mm Hg 
V5 = the cooling air flow rate, scfm 

Plenum Bypass Pressure Drop . Air that is not drawn through the electrochemical 
modules or over the cooling fins bypasses the subsystem hardware through the air 
plenum bypass. A correlation describing the pressure drop as a function of the 
air plenum bypass flow rate was derived from experimental data. The experi- 
mental data was curve-fitted to a general equation describing the pressure drop 
as a function of the plenum bypass air flow rate squared. The mathematical ex- 
pression obtained is 

AP78 = 2.25 x 10' 5 V10 2 (2) 


where 


AP78 = the air plenum bypass pressure drop, mm Hg 

V10 = the air plenum bypass flow rate, scfm 

The pressure drop was expressed as the square of the flow rate because of the 
high turbulent flow characteristics and the dominance of entrance and exit 
effects within the plenum bypass. The turbulence and entrance and exit effects 
both lead to a second power relationship (6* 7) . 

Cooling Air Damper Leakage Pressure Drop . Pressure drop associated with the 
cooling air dampers occurs when the cooling air blowers are off and cooling air 
leaks around the dampers. The geometry of the closed dampers is such that a 
slot flow correlation was indicated. The correlation derived from experimental 
data is 

AP1213 - 8.6117 x 10‘ 4 V5 2 (3) 


where 


AP1213 - the cooling air damper pressure drop, mm Hg 
V5 = the cooling air flow rate, scfm 

The cooling air damper correlation presented only applies when the cooling 
air blowers are off. The dampers are weighted such that when the cooling air 

( a ) All variables used in the equation presented in the Model Analyses 
section use the common engineering units since the equations were 
derived for direct use in the computer program. 


36 



Cife Systems, Jhc. 


blowers start, the dampers open. The cooling damper leakage pressure drop is 
assumed to remain constant as the dampers open. 

Flow Rate Through the Cooling Air Dampers . When the cooling air blowers are off, 
it is necessary to determine the cooling air flow rate caused by cooling air 
damper leakage. Air that is not drawn through the cathode compartments of the 
EDC cells must either flow through the cooling air dampers or the air plenum 
bypass during cooling air blower off operation. The air flow division is given 
by the equation 


V7 = V10 + V5 + VI 


where 


( 4 ) 


V7 = the inlet plenum air flow rate, scfm 

VI = the process (cathode) air flow rate, scfm 

The pressure drop through the air plenum bypass and the cooling air dampers must 
be equal, and the air flow will therefore divide to obtain the equal pressure 
drops. The pressure drop equality is given by the equation 

AP78 = P56 + AP1213 (5) 

The division of air flow rate between the air plenum bypass and the cooling air 
cavities can be calculated by solving equations (1-5) simultaneously for V5, 
given VI and V7. The resulting equation is 

VS = - QB + [QB 2 - 4 (QA) (QC) (6) 

2QA 

where 

QA = -8.517 x 10" 4 

QB = (4.5 x 10” 5 ) (V7 - VI) + 0.0101 

QC = -2.25 x 10 -5 (V7 - VI) 2 

Substitution of VI, V7, and V5 into equations (2-5) yields V10, AP78, AP56, and 
AP1213, respectively. 

Process Air Inlet Pressure . The process air inlet pressure is calculated after 
the heat balance is done and all flow rates have been established through the 
three air passages. The inputs to the math model are the outlet pressure at the 
plenum as would be specified by the subsystem interfacing downstream of the CS-6. 
The process air inlet pressure then is equal to the outlet pressure plus the 
pressure drop across the plenum bypass, as given by the equation 

P7 = P8 + AP78 (7) 
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where 


P7 = the process air inlet pressure, mm Hg 

P8 = the process air outlet pressure, mm Hg 

EDC Module Pressure Drop . The expression for the process air drawn through the 
cathode compartment of the EDC cells was derived from experimental data. A 
general quadratic equation passing through the origin was least squares fit to 
the experimental data. The equation obtained is 

API 2 = 0.04877V1 + 0.001903V1 2 (8) 


where 


AP12 = the EDC module pressure drop, mm Hg 

Process Air Blower Power . The expression for the process air blower power as a 
function of air flow rate was derived from the experimental data gathered on 
both blowers. Because of the spike in the power curve caused by the blower 
speed controller, the total power curve was modeled by three straight line 
segments. The equations derived were 


PWRCTB = 2.8V1 + 153.8; for VI < 62 


(9) 


PWRCTB = 40V1 - 2150; for 62 < VI < 65 


( 10 ) 


where 


PWRCTB = -34V1 + 2660; for 65 < V < 70 


(ID 


PWRCTB = the process (cathode) air blower power, W 

Cooling Air Blower Power . The cooling air blower power is a function of the 
cooling air flow rate and the air plenum bypass pressure drop. As air plenum 
bypass pressure drop increases (higher bypass flow rates), cooling air blower 
power was observed to decrease for a given cooling requirement. This decrease 
is caused by the increased leakage flow rate through the cooling air dampers at 
the higher plenum bypass pressure drop. Cooling blower power as a function of 
a ir flow rate was measured experimentally for two air plenum pressure drops. 

The correlations obtained through curve fitting for the two power curves are 
given by the equations 

PWH = 410 - 0.00396 (V5 - 368) 2 (12) 

PWL = 410 - 0.00178 (V5 - 306) 2 (13) 


where 


PWH = the power at AP78 of 1.25 in water, W 
PWL = the power at AP78 of 0.05 in water, W 
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An empirically derived interpolation parameter, TR, is used to calculate the 
cooling air blower power at different plenum bypass pressure drops. The interpo- 
lation equation obtained was 

PWRCLB = (TR) (PWH) + (1-TR) (PWL) (14) 

where 

PWRCLB = the cooling blower power, W 

TR = (^§97 + 0. 0385) A (15) 

A = 0.128 + 0. 0546AP78 (16) 

Process Hydrogen Correlations 

Correlations for the process H ? stream were required to calculate the EDC 
module H~ pressure drop as a function of flow rate, pressure drop across 
the flow and sensor distribution mounting, and to upgrade the anode gas 
outlet dew point correlation used in the EDC cell math model. 

EDC Module Hydrogen Pressure Drop . The pressure drop through the anode compart- 
ment of the 16 series connected EDC cells as a function of H» flow rate was de- 
rived from experimental data. The two equations describing the anode compartment 
pressure drop are 

. , 1 ® ® 

AP34 = 0.3822 (±Jj4 V3; for V3 < 22 (17) 

... 0.8 . 

AP34 = [8.3183 + 0.4187 (V3 - 21.5801) ] for 

V3 > 22 (18) 


where 

AP34 = the anode pressure drop, mm Hg 
V3 = the flow rate, slpm 
P4 = the anode gas outlet pressure, psia 

Hydrogen Distribution Mounting Pressure Drop . The pressure drop associated with 
H ? flow through the H ? distribution mounting was derived from experimental data. 
The two equations obtained are 

14.1 ® 

AP93 = 10.64 (~i) V3; for V 3 < 6.2 (19) 
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14 1 

AP93 = (^0 


0.8 


[35.14V3 - 195.25 + e (7-75 °- 6537V3 )j . for 


V3 > 6.2 


( 20 ) 


where 


AP93 = the H 2 distribution mounting pressure drop, mm Hg 
P3 = module inlet pressure, psia 

Anode Gas Dew Point Correlation . The anode gas dew point can be estimated from 
the module temperature and the inlet and outlet cathode air dew points. The 
correlation derived from experimental data is given by the equation 

DW4 - 0.77 ( D - W1 j DW2 ) +0.23 (T2) (21) 


where 


DW4 = anode gas outlet dew point, F 
DW1 = cathode air inlet dew point, F 
DW2 = cathode air outlet dew point, F 
T2 = module temperature, F 

The data that was used to derive the correlation is presented in Table 6. 

EDC Module Correlations 

The EDC cell and module math model previously developed required upgrading in 
three areas: the module temperature and heat balance, the effect of process 
(cathode) air flow rate on C0 2 removal efficiency, and the effect of cell moisture 
conditions on CO^ removal efficiency. 

Module Temperature Correlation . The process (cathode) air out temperature, 
defined as the module temperature, is controlled to a set level above the process 
air inlet dew point temperature. The module temperature is maintained by control- 
ling the cooling air blower speed to give the desired process air outlet to 
inlet air dew point temperature differential. Four conditions exist which 
prevent the module temperature control from maintaining the temperature dif- 
ferential : 

1. Insufficient blower capacity, 

2. Excessive cooling air damper leakage, 

3. Insufficient cooling air temperature, 

4. Insufficient module heat generation. 
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TABLE 6 ANODE GAS OUTLET DEW POINT TEMPERATURE CORRELATION DATA^ 


Inlet 

Cathode Air Dew Point Temperature, K 

280.9 

281.4 

280.3 

281.4 

Inlet 

Cathode Air Dew Point Temperature, F 

46.0 

47.0 

45.0 

47.0 

Outlet 

Cathode Air Dew Point Temperature, K 

284.2 

284.0 

283.8 

284.3 

Outlet 

Cathode Air Dew Point Temperature, F 

52.0 

51.6 

50.0 

52.2 

Outlet 

Cathode Air Temperature, K 

299.2 

299.7 

297.0 

299.5 

Outlet 

Cathode Air Temperature, F 

79.0 

79.8 

75.0 

79.5 

Outlet 

Anode Gas Dew Point Temperature 






Observed, K 

286.4 

286.7 

285.2 

286.8 


Observed, F 

56.0 

56.5 

53.8 

56.6 


Calculated, K 

286.4 

286.6 

285.2 

286.7 


* ’’ Calculated, F 

55.9 

56.3 

53.8 

56.5 


(a) CS-6 anode gas dew point data obtained during math model testing. 
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Should one of these four conditions occur, it is necessary to calculate what 
temperature the module will reach with the cooling air blowers in operating 
range (off to maximum capacity). The new module temperature is iteratively 
determined by solving the heat balance equations for cell voltage, heat generated, 
fin heat transfer coefficient, fin efficiency, heat removal by the gas streams, 
and the log mean temperature driving force for heat removal until the following 
two equations are satisfied: 


where 


DTREQ = DTAVA 


HEATLOAD = AH . + AH,, + AH 

air 


cool 


DTREQ = 
DTAVA = 
HEATLOAD = 
AH . = 


air 



AH 


cool 


the required log mean AT driving force 
the available log mean AT driving force 
the heat generated 

the heat removed by the process (cathode) air 
the heat removed by the anode gas 
the heat removed by the cooling air 


( 22 ) 

(23) 


Air Flow Correlation . Experimental data indicated that the correlation ori- 
ginally developed to predict C0 ? removal as a function of process (cathode) air 
flow rate required upgrading, ^he air flow correlation was therefore upgraded 
based on CS-6 performance data* 1 . The new correlation that was obtained is 
given by the equations 

PA = (pC0 2 ) (Vl/0.44N) f[pCX V 
f(pC0 2 ) = (1 + 0.84 (pC0 2 )]e'°‘ 84(pC0 2 ) 


(24) 

(25) 


where 


PA = the normalized pC0 o for air flow rate, nun Hg 
N = the number of EDC cells 

The normalized pCO,,, PA, is then used in place of the actual pCO^ in the CCL 
removal efficiency correlations. 2 2 

Moisture Balance -Carbon Dioxide Removal Efficiency Correlation . The original 
EDC cell math model assumed that moisture was maintained within a preferred 
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operating range. The C0 ? removal efficiency correlation did not account for 
changes in C0 ? removal efficiency for moisture conditions outside the preferred 
range. Moisture conditions outside the preferred range occur since the module 
temperature to process air inlet dew point temperature differential (DELT1) 
control does not vary with changes in current and air flow rate. Hardware 
limitations in controlling DELT1 and improper setting of DELT1 also cause nonpre- 
f erred moisture balance conditions to occur. A correlation was therefore developed 
to account for changes in C0 9 removal efficiency as a function of moisture 
balance. The correlations derived from experimental data^ are given by the 
equation 

TI 1 = TI [1 + 0 . 03536 (DELT1 - 18.33)] (26) 

where 

TI^ = the Transfer Index corrected for moisture balance 
TI = the noncorrected Transfer Index 

The data that was used to derive the correlation is presented in Figure 18. 

Computer Program 

The CS-6 Base Program consists of a main program and eight subroutines. The 
main program manages input and output, directs calculation of heat and mass 
balances, checks for cooling and cathode air blower operation within range, 
checks for sufficient flow, checks plenum bypass flow, checks cell moisture 
conditions within tolerance, completes all stream definitions, and calculates 
total subsystem equivalent weight. The subroutines are called by the main 
program and by each other to calculate water vapor pressure from dew point 
temperature (PHTO) , to calculate the dew point temperature from water vapor 
pressure (DEWT) , to calculate TI (TICOR) , to find the root of a function (ROOT) , 
to calculate module temperature offset (TDRIFT) , to calculate required and 
actual module cooling air temperature drops dependent upon module temperature 
(ERT1), to calculate required and actual module-cooling air temperature drops 
dependent upon cooling air flow rate (ERT) , and to check input variable ranges (T). 

Program Description 

A detailed description of the program is presented in the main program flow 
chart and the subroutine flow charts. Appendix A. The program can be represented 
by ten major divisions for simplicity. 

1. Read in and playback input data. 

2. Check input ranges. 

3. Check for sufficient flow and cathode blowers within range. 


43 



Transfer Index, kg CO /kg 0, 


Jdfc Systems. Jhc \ 


2.4 


2.2 


2.0 


1.8 


1.6 


1.4 


1.2 


1.0 


0.8 


Module Temperature - Inlet Cathode Air Dew Point, F 
0 ^ 14 16 18 20 22 *24 

rv ^ 1 r— —\ I 1 1 r- 



o 



° O 8 


Equation 26 


Date 

Operating Time, Hr 
Number of Cells 
Current, A: 

Electrolyte 

Charge Concentration, % 
Temperature, K (F) 

Air Inlet Dew Poini;, K (F) 

Air Pressure, kN/ni^ (Psia) 

Air Inlet pC0 7 , N/ni (mm Hg) 
Air Flow Ratet dm /sec (Scfra) 

r I m n„ j J ^ / rn 1 \ 

2 


Flow Rate, dm J /sec (Slpm) 


2/23/73 - 3/5/73 
571-812 

15 

4.910.1 
Cs CO 
6175 

29310.6 (6711) 
Variable 
103 (14.7) 

362130 (2.6710.2) 
3.510.3 (7.410.6) 
0.1610.008 (9.510.5) 




8 9 10 11 12 13 

Module Temperature - Inlet Cathode Air Dew Point, K 

MOURE 18 EFFECT OF MOISTURE CONDITIONS ON' TRANSFER INDEX 
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4. Perform the heat balance including iterative solution governing module's 
heat load, cooling fin efficiency and heat transfer coefficient, 
cooling air flow rate, and module temperature. 

5. Check the plenum bypass flow rate. 

6. Calculate only stream parameters required for moisture balance checks. 

7. Check module moisture conditions. 

8. Complete all stream definitions. 

9. Calculate subsystem equivalent weights. 

10. Output results. 

Also contained in Appendix A are the CS-6 Base Program Listing, the checks and 

messages performed by the program, and the nomenclature and units' definitions. 

Program Assumptions , 

The following assumptions were made in developing the CS-6 Base Program: 

1. Gas pressures are governed by the Ideal Gas Law and Dalton's Law. 

2. Inlet H~ flow rate greater than 1.3 times the stoichiometric amount 
does not affect TI. 

3. Cabin air contains only N£, 0^, CC^, and water in signficant amounts. 

4. Heat losses, leaks, and pressure drops in intercomponent lines are 
negligible. 

5. The number of allowable cells in CS-6 is 90-96. 

6. Pressure drops depend upon standard flow rates only, except in the H- 
sensor block and anode passages, where absolute pressure may differ 2 
significantly from atmospheric. 

7. Transfer Index is proportional to a power of cathode air flow which 
approaches 1 as pCO^ approaches 0, and diminishes to 0 as pCO^ increases. 

8. The dependence of TI upon moisture conditions is approximated by a 
linear function of the difference between module temperature and inlet . 
cathode air dew point temperature. 

9. Steady-state exists in the subsystem. 

10. At least 5% of the inlet process air must pass through the plenum 
bypass to prevent backmixing of the outlet stream with the inlet < 
stream. 


45 



Cife Systems, Jhc . 


11. The outlet H dew point temperature is approximated by a weighted 
average of the module temperature, the inlet cathode air dew point, 
and the outlet cathode air dew point. Cathode air removes the re- 
maining moisture produced. 

12. Cooling air dampers remain closed when the cooling blowers are off. 

13. When open, cooling dampers’ pressure drop remains constant. 

14. Heat loss of modules and blowers to the ambient air is negligible. 

15. Primary controller, emergency controller, and data acquisition unit 
(DAU) reject waste heat only to the ambient. 

16. Activation of valves is brief (less than one second) and adds no 
significant power penalty. 

17. Cooling air blower power depends upon flow rate reaching a plateau and 
declining slightly at maximum flow. At lower flow rates, the power 
depends increasingly upon the plenum bypass pressure drop. 

18. Cathode air blower power depends upon flow rate. The prediction range 
does not extend to very low flow rates, and the effect of differential 
pressure is neglected. 

19. Cooling fin efficiency and heat transfer coefficient depend on cooling 
air flow rate only. 

20. Differences between cells, modules, and sections are insignificant. 

21. Inlet cooling air and inlet cathode air have the same temperature and 
pressure . 

Program Features 

The following features were incorporated into the CS-6 Base Program. 

1. The program checks each set of input data to insure that each para- 
meter is within its prediction range. 

2. Cooling air flow rate is calculated for the set point module temper- 
ature. Under certain conditions, however, the subsystem hardware is 
unable to provide the required cooling air flow rate to control module 
temperature at the set point. These conditions are (1) insufficient 
blower capacity, (2) excessive cooling damper leakage, (3) insufficient 
cooling air temperature, and (4) insufficient module heat generation. 

For these conditions program logic calculates the temperature to which 
the modules would drift with the cooling blowers in range, and proceeds. 

3. All significant pressure drops are calculated based on flow rates and, 
where appropriate, absolute pressure. 
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4. Inlet stream pressures are calculated based on outlet stream pressures 
and system pressure drops. 

5. All significant component power consumptions and heat rejections are 
calculated. All intermediate streams are completely specified regard- 
ing temperature, pressure, composition, and flow rate. 

6. Total subsystem equivalent weight is calculated from adjustable penalty 
factors for heat rejection, power consumption, 0 o consumption, and 
water rejection. 

7. Input data may be entered directly from a terminal or from a previously 
prepared data file for convenience when a large number of problems are 
to be done during the same run. 

Model Results 

Sample problems were run using the CS-6 Base Program to verify the model's 
predictability for subsequent incorporation into the CS-6 Cabin pCC^ Simulation 
Program. Output data from the program was checked against experimental data and 
the model upgraded throughout the development phase. Several sample outputs are 
presented in Appendix B. The results corresponded well to experimental data as 
expected since the major math model correlations (i.e., C0 ? removal efficiency, 
blower power, gas stream pressure drop, etc.) are empirically based. 

CS-6 CABIN pC0 2 SIMULATION PROGRAM 

The CS-6 Cabin pCO^ Simulation Program is the computer program that was developed 
to simulate the steady-state spacecraft cabin pCC^ profile resulting from the 
interaction of a repeating daily metabolic C0 2 generation profile and the CS-6 
as the spacecraft CCS for a given cabin volume. 

The program calculates and outputs cabin pCCL, C0 2 removal rate and efficiency, 
cell voltage, subsystem power requirements, subsystem equivalent weight, and 
other subsystem parameters as a function of time for a given CO^ generation 
profile. A list of the input variable ranges and their units are presented in 
Table 7. The complete list of input and output variables and their units are 
presented in Table 8. 


Model Analysis 

The specific functions performed by the pCO^ simulation program are to define 
Mode B (if required) from the input parameters and perform the integration over 
each time interval to calculate the change in cabin pC0 9 (for both Mode A and 
Mode B) . 

Mode B Definition 

A typical Mode B control scheme is presented in Figure 19. Current and air flow 
vary linearly with cabin pCO ? . Two sets of input data are used to define Mode 
B; the minimum and maximum pC0. 7 levels and their corresponding current and air 
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TABLE 7 CS-6 CABIN pCp SIMULATION PROGRAM 
INPUT VARIABLE RANGES 


Cabin Atmosphere 


Total Pressure, P0PSA 

13.7-15.7 Psia 

pCO PC0 

0.0001-10 mm Hg 

p0 2 ; PO0PSA 

2-4 Psia 

Temperature, T0 

44-80F 

Volume, VOLUME 

10 2 -10 5 Ft 3 

Process Air Outlet 

Total Pressure, P8PSA 

13.7-15.7 Psia 

Process Air Inlet 


Temperature, T7 

44-80F 

0-600 Scfm taJ 

Flow Rate, V7 

Dew Point Temperature, DW7 

41-70F 

Anode H 2 /C0 2 Outlet 

Total Pressure, P4PSA 

14.8-21.2 Psia 

System Inlet 

Temperature, T9 

65-75F 

0-18 Scfm (aJ 

Flow Rate, V9SL 

Dew Point Temperature, DW9 

10-75F 

Modules 

Number in Circuit, N 

90-96 

Current, I 
DELT1 LDJ 

2.44-9.76 A 

10-25F 

Cathode Air Flow Rate, VI 

5.0-76.8 Scfm (96 cells) 

Penalty Weight Factors 

Power, PWPEN 

0-2 Lb/Watt 

Heat Rejection to Ambient, HTPEN 

0-2 Lb/Btu/Hr 

Water Vapor Rejection to 

Ambient, H20PEN 

0-500 Lb/ Lb H 0/Hr 
0-3000 Lb/Lb 6 /Hr 

Oxygen Consumption, OXPEN 

Program Control 

KMODE 
NFLAG W 

0-1 

0-1 

Minimum Current, BK(1) 

2.44-9.76 A 


(a) Reference conditions for standard flow units: 70F, 14.7 Psia 

(b) DELT1 = Module temperature - cathode air inlet dew point temperature 

(c) KMODE = 0 Mode A 

1 Mode B 

(dj NFLAG = 0 Out of tolerance moisture conditions do not stop program. 

1 Out of tolerance moisture conditions do stop program. 
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Table 7 - continued 


pCO^ for Minimum Current, BK(2) 
pCO^ for Maximum Current, BK( 3 ) 
Maximum Current, BK(4) 

Minimum Cathode Air Flow Rate, BK(5) 
pCO- at Minimum Cathode Air Flow 
Rate, BK( 6 ) 

pC0 2 at Maximum Cathode Air Flow 
Rate, BK(7) 

Maximum Cathode Air Flow Rate, BK( 8 ) 
Number of Days to be Simulated, DAYS 
Integration Time Increment, DT 
Output Table Time Increment, DPRINT 


0.0001-10 mm Hg 
0.0001-10 mm Hg 
2.44-9.76 A 
5.0-76.8 Scfm 

0.0001-10 mm Hg 

0.0001-10 mm Hg 
5.0-76.8 

0- 10 Days ^ 

1- 15 Minutes 
1-100 Minutes^ 


(a) DT must be chosen so that the length of each time step in the C0 2 
generation rate table is a whole multiple of DT. 

(b) DPRINT must be a whole multiple of DT. 
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TABLE 8 CS-6 CABIN pCO,, SIMULATION PROGRAM 
INPUT AND OUTPUT VARIABLES 


Input Variables 


Cabin Atmosphere 


Process Air Outlet 
Process Air Inlet 

Anode H 2 /C0 2 Outlet 
Anode H 2 Inlet 


Modules 


Penalty Weight Factors 


Control 


Mode B 


Output Variables 
Control 


Total Pressure, Psia 
pCO , mm Hg 
p0 2 f Psia 
Temperature , F 
Volume, Ft 3 

Total Pressure, Psia 

Temperature, F 

Flow Rate, Scfm 

Dew Point Temperature, F 

Total Pressure, Psia 

Temperature, F 

Flow Rate, Slpm 

Dew Point Temperature, F 

Number of Cells in Circuit 
Current, A 
DELT1 , F 

Cathode Air Flow Rate, Scfm 

Power Consumption, Lb/Watt 
Heat Rejection, Lb/Btu/Hr 
Water Vapor Rejection, Lb/Lb/Hr 
0 2 Consumption, Lb/Lb/Hr 

KMODE 0 = Mode A, 1 = Mode B 
NFLAG 0 = ignore out-of-tolerance 
moisture conditions 
1 * abort for out-of-tolerance 
moisture conditions 

Minimum Current, A 

pC0 0 for Minimum Current, mm Hg 

pCO^ for Maximum Current, mm Hg 

Maximum Current, A 

Minimum Cathode Airflow, Scfm 

pC0 2 for Minimum Airflow, mm Hg 

pCC> 2 for Maximum Airflow, mm Hg 

Maximum Cathode Airflow, Scfm 

Maximum Number of Days to be Integrated, 

Day 

Integration Increment, Min 
Printing Increment, Min 


Preferred Value of DELTl^, F 


(a) DELT1 = Module Temperature - Inlet Cathode Air 
Dew Point Temperature m 
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Table 8 - continued 


Module Transfer Index, Lb CCL/Lb 0^ 

Transfer Efficiency, % 

Cell Voltage, V 
Module Voltage, V 
CO Removal Rate, Lb/Hr 
0 2 Con sumption Rate, Lb/ Hr 
H 2 Consumption Rate, Lb /Hr 
Water Production Rate. Lb/Hr 
Current Density, A/Ft 2 
Heat Load Modules, Btu/Hr 
Power Production of Modules, Watt 

Cathode Air Inlet Total Pressure, mm Hg 

pCO-, mm Hg 

pH-O, mm Hg 

CO" Flow Rate, Lb/Hr 

Water Flow Rate, Lb/Hr 

CO- Flow Rate, Scfm 

Water Flow Rate, Scfm 

0_ Flow Rate, Scfm 

N 2 Flow Rate, Scfm 

Temperature, F 

Dew Point Temperature, F 

Relative Humidity, % 

Cathode Air Outlet Total Pressure, mm Hg 

Module Cathode Air Pressure Drop, mm Hg 

pCO mm Hg 

pH-6, mm Hg 

Total Flow Rate, Scfm 

CO,, Flow Rate, Scfm 

Water Flow Rate, Scfm 

0- Flow Rate, Scfm 

N 2 Flow Rate, Scfm 

Ct>- Flow Rate, Lb/Hr 

Water Flow Rate, Lb/Hr 

Temperature, F 

Dew Point Temperature, F 

Relative Humidity, % 

Cathode Air Blower Outlet Total Pres- 
sure , mm Hg 

Cathode Air Blower Outlet Flow Rate, 

Scfm 

Cathode Air Blower Outlet Temperature, F 

Process Air Inlet Total Pressure, mm Hg 

pH.,0, mm Hg 
pN^, mm Hg 
CO 2 Flow Rate, Scfm 
Water Flow Rate, Scfm 
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Table 8 - continued 


0 7 Flow Rate, Scfm 
N 2 Flow Rate, Scfm 
Dew Point Temperature, F 
Relative Humidity, % 

Process Air Outlet Total Pressure, mm Hg 

pCO,, , mm Hg 

Plenum Bypass Flow Rate, Scfm 

Plenum Bypass Pressure Drop, mm Hg 

Total Flow Rate, Scfm 

Water Flow Rate, Scfm 

CO. Flow Rate, Scfm 

O^Flow Rate, Scfm 

pfi 2 0, mm Hg 

Temperature, F 

Dew Point Temperature, F 

Relative Humidity, % 

H 2 Inlet Total Pressure, mm Hg 

Water Vapor Pressure, mm Hg 
Distribution Block Pressure and Drop, 
mm Hg 

Module Inlet Total Pressure, mm Hg 

Module Inlet pH 2 0, mm Hg 

Module Inlet pH 2 , mm Hg 

Total Flow Rate, Scfm 

H Flow Rate, Scfm 

Water Flow Rate, Scfm 

H 2 Flow Rate, Lb/Hr 

Minimum Required Flow Rate, Slpm 

H 9 Outlet Total Pressure, mm Hg 

Module Anode Gas Pressure Drop, mm Hg 

Water Vapor Pressure, mm Hg 

Flow Rate, Scfm 

CO. Flow Rate, Scfm 

H ? Flow Rate, Scfm 

Water Flow Rate, Scfm 

Flow Rate, Slpm 

CO. Flow Rate, Slpm 

H. Flow Rate, Slpm 

Total Flow Rate, Lb/Hr 

CO Flow Rate, Lb/Hr 

H. Flow Rate, Lb/Hr 

Water Flow Rate, Lb /Hr. 

Dew Point Temperature, F 
CO -H Weight, Lb C0 ? /Lb H. 

H ? -C0 2 Volume Ratio, ^Slpm fl 2 /Slpm C0 2 
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Table 8 - continued 

Heat Balance, Modules 


Cooling Air 


Actual Volumetric Flow 


Equivalent Weight 


Modules Heat Load, Btu/Hr 
Cathode Air Heat Pickup, Btu/Hr 
Anode Gas Heat Pickup, Btu/Hr 
Cooling Air Heat Pickup, Btu/Hr 

Inlet Pressure, mm Hg 

Coolant Channel Pressure Drop, nan Hg 

Outlet Pressure, mm Hg 

Flow Rate, Scfm 

Inlet Temperature, F 

Outlet Temperature, F 

Heat Transfer Coefficient, Btu/Hr/Ft /F 

Fin Efficiency, % 

Flow Rate Over Cells in Circuit, Scfm 
In Circuit Outlet Temperature, F 
Cooling Blower Outlet Pressure, mm Hg 
Cooling Blower Outlet Flow Rate, Scfm 
Cooling Blower Outlet Temperature, F 
Cooling Damper Pressure Drop, mm Hg 
Minimum Leakage Flow Rate, Scfm 

Rates Modules Cathode Air Inlet, Cfm 

Modules Cathode Air Outlet, Cfm 
Modules H_ Inlet, Cfm 
Modules H^-CO^ Outlet, Cfm 
Modules Cooling Air Inlet, Cfm 
Modules Cooling Air Outlet, Cfm 
Modules Cooling Air Outlet From Cells 
in Circuit, Cfm 
Process Air Inlet, Cfm 
Process Air Outlet, Cfm 
System H„ Inlet, Cfm 
Process Air Plenum Bypass Outlet, Cfm 
Cathode Air Blowers Outlet, Cfm 
Cooling Blowers Outlet, Cfm 
Cooling Dampers Outlet, Cfm 

Cooling Blower Power, Watt 

Cathode Blower Power, Watt 

Primary Controller Power, Watt 

Emergency Controller Power, Watt 

Data Acquisition Unit Power, Watt 

Total System Power, Watt 

Total Heat Rejection, Btu/Hr 

Power Consumption Penalty Weight, Lb 

Heat Rejection Penalty Weight, Lb 

Water Vapor Rejection Penalty Weight, Lb 

0 2 Consumption Penalty Weight, Lb 

Hardware Weight , Lb 

Total Equivalent Weight, Lb 
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flow rates. The program takes the two sets of inputs, determines the slope and 
intercept for each set of inputs, and defines the equations for current and air 
flow as a function of pCO^. These equations are then used in the pCO ? integra- 
tion when control Mode B is requested. 

Cabin pCO ^ Integration 

To obtain the cabin pCCL as a function of time, the main program performs a mass 
balance on C0 ? in the cabin for each of the integration intervals. Each mass 
balance yields the pCO^ value at the end of the interval. The pCC> 2 at the end 
of the interval depends upon the average net CO- removal rate during the interval, 
but the average removal rate depends upon the pC0 2 at the end of the interval. 
Neither value is known initially, therefore an iterative solution is necessary. 


The equations which must be satisfied in the mass balance are: 


P(t) 


P(t-At) . 



t-At 


) At 


(27) 


^| t = k !G(t) - R(P(t))] (28) 

where 

P = cabin pC0 2 
t = time 

At = integration increment 

k = proportionality constant between net removal rate of 
CC^ and cabin pCO^ 

G = CO- generation rate, a function of time only, 
calculated by the main program 

R = C0 2 removal rate, a function of cabin pCO- only, 
calculated by the CS-6 BASE subroutine 

The use of the arithmetic average derivative in Equation 27 is the same approxi- 
mation used in Simpson's Rule Integration. The error vanishes when the function 
P(t) is parabolic over the interval. 

All variables are known for time t-At when the integration begins. An approxi- 
mation for P(t) is substituted into Equation 28 and solved using the CS-6 BASE 
subroutine. The result is substituted into Equation 27 to recalculate P(t). The 
correct P(t) is found when the approximate and the recalculated values of P(t) 
agree. For the first approximation labeled "l' 1 in Figure 20, it is assumed that 
P(t) equals P(t - At). 
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Recalculated 

P(t) 



P(t-At) P(t) 


FIGURE 20 GRAPHIC REPRESENTATION OF CONVERGENCE SCHEME 
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The first trial value is substituted into Equations 27 and 28, giving a re- 
calculated value. This value is then used as the second trial value of P(t), 
labeled n 2" in Figure 20. The relation between trial and recalculated P(t) is 
close to linear when the time increments are 15 minutes or less. The final P 
value, labeled "3" in Figure 20, is at the intersection of the secant through 
points 1 and 2, and the 45 degree line. 

The BASE subroutine is called for the second and third values of P only. It is 
not necessary for the first trial, which assumes constant pC0 2 , since the C0 2 
removal rate would then also be constant. Each integration increment requires 
only two subroutine calls with the convergence scheme used, compared to ten or 
more with schemes such as interval halving. 

Computer Program 

The CS-6 Cabin pCO Simulation Program consists of the main program and a number 
of subroutines. The main program manages input and output and performs integra- 
tion of net CCL removal to calculate the cabin pC0 ? profile. The BASE subroutine 
(the CS-6 Base 2 Program adapted with minor modifications) provides all the CS-6 
parameters to the main program, including C0„ removal rate. Subroutines are 
utilized primarily by the BASE subroutine to relate water vapor pressure and dew 
point temperature, to calculate the CO Transfer Index (TI) , to find the root of 
a function, to calculate temperatures and flow rates, to satisfy subsystem heat 
balance, to check input parameters against their allowable ranges, and to calcu- 
late current and cathode air flow rate for Mode B CS-6 operation. 

Program Description 

A detailed description of the CS-6 Cabin pC0 2 Simulation Program is presented in 
the main program flow chart and the subroutine flow charts, Appendix C. The 
program can be divided into 14 major subdivisions for simplicity. 

1. Determine input/ output devices. 

2. Read and write problem identifier. 

3. Read in and print out (if desired) C0 2 generation table. 

4. Read inputs for CS-6 BASE subroutine. Mode B parameters, integration 
and print out parameters. 

5. Determine whether table describing CS-6 at time zero is to be printed, 
and input subscripts for selected variables to be printed as they vary 
with time. 

6. Calculate Mode B parameters. 

7. Print out input data. 

8. Check inputs and print names of any that are outside the prediction 
ranges . 
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9. Print description at time zero if desired. 

10. Print headings for table. 

11. Call BASE to perform pCC> 2 integration over one or more intervals until 
printing interval is reached. 

12. Print a line in the table. 

13. Continue from Step 11 unless it is the end of the day. 

14. Continue from Step 2 if steady-state has been reached or if the maximum 

number of days has been integrated, otherwise continue from Step 10 to 
integrate pCO^ for an additional day. 

Appendix C also contains the program listing, program checks and messages, 

nomenclature and units, and the key to select output variables. 

Program Assumptions 

The following assumptions were made in the development of the CS-6 Cabin pCO ? 

Simulation Program. 

1. The CO,, generation profile is a step function of time only. 

2. Each step in the C0 2 generation profile is an integer number of minutes. 

3. Module set point temperature, an input, does not change during the day. 
It is not a function of current density or air flow in either Mode A 
or B. 

4. Cabin air is uniform in composition at any time. 

5. The Ideal Gas Law applies to the cabin air. 

6. The cabin air contains C> 2 , N 2> CC> 2 , and water vapor only. 

7. Cabin pH 2 0, p0 2> and total pressure are constant; pN 2 and pC0 2 vary. 

8. The pCO integration time increment, an integer number of minutes, is 

chosen so that each C0 2 generation step contains an integer number of 
increments . 

9. In Mode B operation, current density and cathode air flow are linear 

functions of cabin pCO,, but are bounded by minimum and maximum values. 

10. The graph of cabin pCO, versus time can be represented by a series of 

parabolic segments. 


58 


Cifc Systems, Jhc. 


Program Features 


The following features were incorporated into the CS-6 Cabin pCO^ Simulation 
Program: 

1. The input items are checked by the program to insure that all are 
within the prediction ranges. 

2. Input may be entered directly from a terminal to take full advantage 
of operator-program interaction, or from a previously prepared data 
file for convenience when a large number of runs are to be done at 
once. 

3. Output may be printed directly at the terminal or written in one or 
more data files for convenience when a large amount of data is in- 
volved. 

4. A program option allows a table containing all subsystem parameters, 
both constant and time dependent, to be either printed or omitted at 
time zero of the simulation. 

5. Any number of the subsystem parameters may be selected for printing as 
they vary at simulated time intervals. 

6. The pCO integration performed by the main program combines maximum 
usage of past values of pCO^ with an interpolation algorithm so that 
the BASE subroutine is required only twice during each simulated time 
interval. The first time, only enough of the BASE subroutine is 
executed to yield a trial CO^ removal rate and check for achievement 
of steady-state in the CS-6. The second call of the BASE subroutine 
is extended only enough to calculate the final CC^ removal rate, the 
other selected subsystem parameters, and to verify steady-state in the 
CS-6. These techniques have caused the calculation portion of the 
program to consume less computing time than the printing of results. 
Integration accuracy is four significant figures, minimum. 

Model Results 

The CS-6 Cabin pCQ^ Simulation Program was used to predict the cabin pCC^ pro- 
file and selected CS-6 performance parameters for control Modes A and B. The 
C0 ? generation profile used for the runs is presented in Figure 21. Sample 
outputs for the pCC^ Simulation Program are presented in Appendix D. 

Sample cases for control Mode A were run to obtain the steady-state pCO profile 
that would result, given initial cabin pC0 9 levels of 0 and 1333 N/ni (0 and 10 
mm Hg) . The results of three typical runs are presented in Figures 22, 23, and 24 
for 4.88A, Mode A (1), 3.66A, Mode A (2), and 7.32A, Mode A (3), respectively. The 
remaining input parameters are presented in Table 9. Similar sample cases for 
control Mode B were run for initial pCO levels of 0 and 1333 N/ni (0 and 10 mm 
Hg) . The pC0 ? profiles for four typical sets of Mode B parameters (Table 10) 
are presented^in Figures 25 through 28. The remaining Mode B inputs are presented 
in Table 11. 
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FIGURE 22 CABIN pC0 2 SIMULATION 
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FIGURE 24 CABIN pCO 
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TABLE 9 INPUT VARIABLES FOR SAMPLE MODE A PROBLEMS 


Cabin Atmosphere 

Total Pressure, P0PSA 
pCO-, PC0 
p0 2 f PO0PSA 
Temperature, T0 
Volume, VOLUME 

Process Air Outlet 

Total Pressure, P8PSA 

Process Air Inlet 

Temperature, T7 
Flow Rate, V7 

Dew Point Temperature, DW7 

Anode H ? /C0 2 Outlet 

Total Pressure, P4PSA 

System H„ Inlet 

Temperature, T9 
Flow Rate, V9SL 
Dew Point Temperature, DW9 

Modules 

Number in Circuit, N 

Current* I 

DELT1 ^ 

Cathode Air Flow Rate, VI 


Penalty Weight Factors 
Power , PWPEN 

Heat Rejection to Ambient, HTPEN 
Water Vapor Rejection to Ambient, H20PEN 
Oxygen Consumption, OXPEN 


Program Control 
KMODE £ \ 
NFLAG W 


Number of Days to be Simulated, DAYS 
Integration Time Increment, DT 
Output Table Time Increment, DPRINT 


14.7 Psia 
0. 001, 10 mm Hg 
3. 1 Psia 
70F , 

8000 Ft 


14.75 Psia 


fal 

500 Scfnr J 
50F 


20 Psia 


10 Scfm laJ 
69F 


96 

4.00, 3.66, 7.32 A 
22F 

54, 30.7, 70 Scfm 
(96 cells) 


0.591 Lb/ Watt 
0.128 Lb/Btu/Hr 
134 Lb/ Lb H O/Hr 
1536 Lb/ Lb O/Hr 


0 

1 


4 Days 
15 Min 
60 Min 


(e) 

(f) 


(a) Reference conditions for standard flow units: 70F, 14.7 Psia 

(b) DELT1 = Module temperature - cathode air inlet dew point temperature 

(c) KMODE = 0 - Mode A; 1 - Mode B 

(d) NFLAG = 0 - Out-of-tolerance moisture conditions do not stop program 

1 - Out-of-tolerance moisture conditions do stop program 

(e) DT must be chosen so that the length of each time step in the C0„ gen- 
eration rate table is a whole multiple of DT 

(f) DPRINT must be a whole multiple of DT 
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TABLE 10 CONTROL MODE B PARAMETERS 


Control Parameter 

Minimum Current, BK(1), A 

pCO^ for Minimum Current, BK(2), mm Hg 

pCO^ for Maximum Current, BK(3), mm Hg 

Maximum Current, BK(4) , A 

Minimum Cathode Air Flow Rate, BK(5), Scfm 

pCO- at Minimum Cathode Air Flow Rate, 
BK(5) , mm Hg 

pCCL at Maximum Cathode Air Flow Rate, 
BK(7), mm Hg 

Maximum Cathode Air Flow Rate, BK(8), Scfm 


B(l) 

B(2) 

B(3} 

B(4) 

2.586 

2.586 

2.586 

2.586 

2.5 

1.0 

1.0 

2.5 

2.8 

2.8 

10.0 

10.0 

6.6 

6.6 

6.6 

6.6 

20 

20 

20 

20 

2.5 

1.0 

1.0 

2.5 

2.8 

2.8 

10.0 

10.0 

60 

60 

60 

60 
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FIGURE 26 CABIN pCO SIMULATION PROFILE FOR CONTROL MODE B(2) 
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TABLE 11 INPUT VARIABLES FOR SAMPLE MODE B PROBLEMS 


Cabin Atmosphere 


Total Pressure, P0PSA 
pC0 9 , PC0 
p0 2 , PO0PSA 
Temperature, T0 
Volume, VOLUME 

14.7 Psia 
0.001, 10 mm Hg 
3.1 Psia 
70F 

8000 Ft 

Process Air Outlet 

Total Pressure, P8PSA 

14.75 Psia 

Process Air Inlet 

Temperature, T7 
Flow Rate, V7 

Dew Point Temperature, DW7 

55F fa) 

265 Scfm 1 ' } 

50F 

Anode H^/CO, Outlet 

Total Pressure, P4PSA 

20 Psia 

System Inlet 

Temperature, T9 
Flow Rate, V9SL 
Dew Point Temperature, DW9 

72F Cal 

10 Scfm w 

69F 

Modules 

Number in Circuit, N 
Current, I 
DELT1 '• CJ 

Cathode Air Flow Rate, VI 

96 ,,, 
N/A (b ) 
22F 
N/A 

Penalty Weight Factors 
Power, PWPEN 

Heat Rejection to Ambient, HTPEN 
Water Vapor Rejection to Ambient, H20PEN 
Oxygen Consumption, OXPEN 

0.591 Lb/Watt 
0.128 Lb/Btu/Hr 
134 Lb/Lb H 0/Hr 
1536 Lb/Lb 0 2 /Hr 

Program Control 
KMODE ^ 

NFLAG 

Number of Days to be Simulated, DAYS 
Integration Time Increment, DT 
Output Table Time Increment, DPRINT 

1 

1 

4 Days m 
15 MinJ^ 
60 Min 1 ' gJ 


(a) Reference conditions for standard flow units: 70F, 14.7 Psia 

(b) N/A = Not Applicable 

(c) DELT1 = Module temperature - cathode air inlet dew point temperature 

(d) KMODE = 0 - Mode A; 1 - Mode B 

(e) NFLAG = 0 - Out-of-tolerance moisture conditions do not stop program 

1 - Out-of-tolerance moisture conditions do stop program 
(fj DT must be chosen so that the length of each time step in the CO 2 gen- 
eration rate table is a whole multiple of DT 
(g) DPRINT must be a whole multiple of DT 
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In control Mode A, subsystem equivalent weight and 0 y consumption remain con- 
stant. In control Mode B, however, these two parameters vary with time. The 
steady-state daily equivalent weight and 0^ consumption profiles for the four 
control Mode B runs are presented in Figures 29 through 36. Subsystem power 
consumption profiles and any other subsystem performance variable profiles can 
likewise be predicted, depending upon the specific interests of the program 
user. In this manner, control Mode A and control Mode B can then be compared on 
the basis of the important performance parameters for a given application. 

CONCLUSIONS 

The following conclusions were reached as a direct result of the math model 
development effort: 

1. The CS-6 Base Program developed accurately predicts the performance 
characteristics of the CS-6 as a subsystem over its typical range in 
operating conditions. 

2. The Cabin pC0 7 Simulation Program developed predicts cabin pC0 ? as a 
function of a^given C0_ generation profile and spacecraft cabin volume 
for the CS-6 as the CCS. 

3. The Cabin pCO^ Simulation Program provides a tool for the system 
designer for use in trade studies to determine subsystem equivalent 
weight, 0^ consumption, power consumption, and cabin pCO^ as a function 
of a C0 ? generation profile for both control Mode A and control Mode 

B. 

4. The CS-6 Base Program and Cabin pCC^ Simulation Program can be up- 
graded for use as a hardware design tool. Hardware limitations such 
as cooling air damper leakage and blower capacity could be eliminated 
from the program. The result of the upgrading would be a hardware design 
tool specifically aimed at sizing and designing an EDC C0 9 removal sub- 
system for general spacecraft application. 

5. The experimental work completed provided the necessary data to model 
the performance of the CS-6 and to verify the model's predictability. 
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FIGURE 29 STEADY-STATE DAILY EQUIVALENT WEIGHT PROFILE FOR CONTROL MODE B(l) 
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FIGURE 30 STEADY-STATE DAILY EQUIVALENT WEIGHT PROFILE FOR CONTROL MODE B(2) 
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FIGURE 31 STEADY-STATE DAILY EQUIVALENT WEIGHT PROFILE FOR CONTROL MODE B(3) 
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FIGURE 32 STEADY-STATE DAILY EQUIVALENT WEIGHT PROFILE FOR CONTROL MODE B(4) 
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FIGURE 53 STEADY-STATE DAILY 0, CONSUMPTION PROFILE FOR CONTROL MODE B(l) 
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FIGURE 35 STEADY -STATE DAILY 0 2 CONSUMPTION PROFILE FOR CONTROL MODE Bf3) 
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APPENDIX A CS-6 BASE PROGRAM DOCUMENTATION 

TABLE PAGE 

1 Main Program Flow Chart 

2 Water Vapor Pressure Function A- 18 

3 Dew Point Temperature Function A- 19 

4 Transfer Index Function A-20 

5 Root Function ....... A-22 

6 Module Temperature Subroutine . A-24 

7 Heat Balance Function with Variable Module 

Temperature A- 25 

8 Heat Balance Function with Variable Cooling 

Air Flow Rate A-27 

9 Range Test Subroutine A-29 

10 Base Program Listing 

11 Checks and Messages A-42 

12 Nomenclature and Units A- 44 
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TABLE 1 MAIN PROGRAM FLOW CHART 


Program Line 

Symbol Numbers 


Description 


Comments 



190 

190 

200 

200 

200 

200 

210 

210 

210 

210 

220 

230 

240 

2S0 

260 

270 

280 


START 

CPA = 1.0765 

CPH = 1.0666 

U1 = 51.7 

U2 = 386.7 

U3 = 3.419 

U4 = 28.32 

C782 = 2.25 x 10" 5 

C562 = 1.303 x 10 -5 

C561 = 1.01 x 10' 2 

C6132 = 8.611 x 10“ 4 

C5132 = C562 + C6132 

C5131 = C561 

QA = C5132 - C782 

I OUT = 1 

PRINT, "FILE INPUT (T OR F) 
READ, QFIN 
INP = 50 


Initialize Constant Btu/Hr/Scfm-F 
Initialize Constant Btu/Hr/Scfm-F 
Initialize Constant mm Hg/Psi 
Initialize Constant Scfm/Lb-Mol/Hr 
Initialize Constant Btu/Hr/Watt 

3 

Initialize Constant 1/Ft 

Initialize Constants For Pressure Drop 
Equations 


Initialize output file device code 


-continued- 
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Table 1 - continued 


Program Line 

Symbol Numbers 




450-470 

510-750 

790 

800 

810-990 



IF (QFIN) OPEN INPUT FILE 
PRINT, "FILE OUTPUT (T OR F)" 
READ, QFOUT 

IF (NOT QFOUT) IOUT = 66 


IF (NOT QFOUT) BRANCH 

IF (NOT QFIN) PRINT, "FILE 
FOR OUTPUT" 

READ (INP, 48) FNAME 

IF (FNAME = "WAIT") BRANCH 

END, CLOSE AND REWIND FILE 

READ: POPSA, PCO, POOPSA, 
P8PSA, T7, V7, DW7, P4PSA, 

T9, V9SL, DW9, N, I, DELT1, 
VI, PWPEN, HTPEN, H20PEN, 
GXPEN , NFLAG 

WRITE INPUT VARIABLES 

IR=0 

CALL T ("POPSA," POPSA, 13.7, 
15.7, IR) 


Comments 

Open input file if desired 


Should output be written into a file? 
If not, correct the output device code 
for direct terminal output . 


If file output was used, read in the file 
name. If the file is completed, close it 
and assign the name to it. 


Read in and write out input variables 


Initialize out of range input variable counter 

Subroutine T checks each input variable 
against its allowable range. Out of range 
variables are printed and cause IR to be in- 
cremented. 
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Table 1 - continued 



Program Line 
Numbers 

1000 

1010 



CALL T ("NFLAG,", FLAG, 0, 1, 

IR) 


IF (IR > 0) BRANCH 



1050 V9MSL = (1.3) (N) (I) (7.058 x 

10 -5 ) 

1060 IF V9MSL < V9SL THEN BRANCH 

1070-1080 WRITE "INSUFFICIENT H " V9MSL, 
"IS REQUIRED" 



Comments 


If the counter shows that one or more input 
variables is out -of -range, abort the 
simulation and read in next set of data. 

Calc, required H ? flow 

Check for sufficient Flow 

Write error message and required 
H 2 flow 

Return for new inputs 


Check that VI is less than the 
process air blower capacity 

Set VI to maximum blower capacity 

Print error message 


Calculate bypass cooling air flow 
with cooling blowers off; i.e., 
calculate minimum cooling air flow rate 
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Table 1 - continued 



Program Line 
Numbers 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 



T2 = DW1 + DELT1 


T2INP = T2 


E = 0.729 - 0.22 lnl + 
0.0081 + 0.005 (T2-78) 

HEATLD = (1.25-E) (N) (I)(U3) 

T1 = T7 


T3 = T9 
V3 = V9SL/U4 
T5 = T1 

DHA = VI (CPA) (T2 - Tl) 


1390 DHH = V3 (CPH) (T2-T3) 

1400 DHC = HEATLD- DHA- DHC 

1440 If DHC. > 0 THEN BRANCH 

1490 V5 = V5MIN 

1500 V5A = (N) (V5MIN) /96 

1510 CALL TDRIFT 


Comments 

Calculate cell temperature 
Store input T2 
Calculate cell voltage 

Calculate modules' heatload 


Calculate heat removed by 
cathode air flow 

Calculate heat removed by H 2 

Calculate heat removed by 
cooling air 

Check to see if cooling air 
is required 

Set cooling air flow to minimum 

Calculate flow thru active cells 

Calculate T2 for subcooled 
condition 
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Table 1 - continued 


Symbol 



Program Line 

Numbers Description 

1520 DROP = T2INP-T2 

1530-1560 WRITE "V5MIN," V5MIN "COOLING 

BLOWERS OFF," "MODULE TEMPER- 
ATURE FALLS," DROP, "NEW T2," 
T2 


1630 IF T2-T5 > (°- 3 7 , 6 ) DHC 

BRANCH 

1680 V5 = 440 

1690 V5A = V5(N)/96 

1700 Call TDRIFT 

1710 RISE = T2-T2INP 

1720-1740 WRITE "COOLING BLOWERS ON 

FULL," "MODULE TEMPERATURE 
RISES," RISE, "NEW T2," T2 


1800 VA_= 1.01 x DHC/CPA (N) (T2-T5) 

1810 VB = 2 (VA) 

1820 V5A = (N) • ROOT (VA, VB, ERT, 

0, 0.005, 0.001, 20) 

1830 V5 = 96 (V5A) /N 

1880 If V5 < V5MIN THEN BRANCH 


Comments 

Calculate temperature, T2, drop 
Print out new conditions 

Check if there is sufficient AT 
to conduct heat up fins 

Set V5 to maximum blower capacity 

Calculate flow thru active cells 

Calculate T2 

Call rise in module temperature 
Print out new conditions 

Calculate minimum and maximum cooling 
air flow to set range for iterative 
subroutine "ROOT" 

Calculate cooling air flow past active cell 

Calculate total cooling air flow 
Check for subcooling 
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Table 1 - continued 


Symbol 



Program Line 
Numbers 

Description 

Comments 

1890 

If V5 > 440 THEN BRANCH 

Check for heatup 

1900-1920 

WRITE "COOLING BLOWERS IN 
RANGE" 

Print clarifying statement 

1970 

V10 = V7-V1-V5 

Calculate plenum bypass flow 

2020 

IF V10 * 0.005 (V8) THEN BRANCH Check for sufficient plenum bypass 

2030-2060 

WRITE "INSUFFICIENT AIR FLOW, 
RECIRCULATION OF AIR FROM 
OUTLET TO INLET" 

Print error message 

2120 

COR34 - t 14 ’ 1 3 °- 8 “ 

CORj 4 - p4psA 


2130 

P4 = P4PSA (VI) 

Calculate module H cavity pressure drop 

2140 

V3SL = V9SL 


2150 

DP34 = (0.3822) (C0R34)(V3SL) 

i 

2150 

IF V3SL 522 THEN BRANCH 

! 

2150 

DP 34 = COR34 (8.3183 + ?& 
0.4187 (V3SL-21.5801) ) 


2170 

P3 = P4 + DP34 ~~ 

Calculate module inlet pressure 

2180 

P3PSA = P3/U1 


2190 

COR93 “'pjpsi 0-8 


2200 

DP93 = (COR93) (10.64) (V3SL) 

Calculate H^ distribution block pres- 
sure drop 
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Table 1 - continued 



Program Line 
Numbers 

Description 

2210 

IF V3SL <6.2 THEN BRANCH 

2210 

DP93 « C0R93 [35.64 V3SL - 
i95.25 + e (7 . 75-0 . 6537V3SL) 

2220 

P9 = P3 + DP93 

2230 

P9PSA = P9/U1 

2240 

DP78 = 2.25 x 10 _5 (V10) 2 

2250 

P8 = P8PSA(U1) 

2260 

P7 = P8 + DP78 

2270 

P7PSA * P7/U1 

2280 

DP12 = 0.001903(V1) 2 + 
0. 04877 (VI) 

2290 

PI = P7 

2300 

P2 = P1-DP12 

2310 

PCI = PCO 

FLl - FOU pQpsA 

2320 

CURDEN = 1/0.244 

2330 

DELT1E = T2-DW1 

2340 

TI = TICOR (PCI, Vl/96, 
CURDEN, DELTIE) 

2350 

OCON = 6.5803 X 10" 4 (N) (I) 


Comments 


Calculate H 2 inlet pressure 

Calculate process air inlet pressure 
using plenum pressure drop correlation 


Calculate cathode air pressure drop 

v 

Calculate cathode air out pressure 

Calculate cathode inlet pCC^ 
Calculate current density 
Calculate actual humidity AT 
Calculate TI 

Calculate 0 ^ consumed 


Life System. Jhc. 
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Table 1 - continued 


Symbol 



Program Line 
Numbers 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 


Comments 

Calculate CC> 2 transferred 
Calculate H 2 consumed 
Calculate water produced 

Calculate anode gas stream parameters 


Calculate cathode air water balance 
parameters 



Cife Systems, Jttc. 
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Table 1 - continued 


Symbol 


3 



S 




Program Line 
Numbers 

Description 

2550 

POl = P07 

2560 

PN1 = P1-P01-PW1-PC1 

2570 

VN1 = VI (PN1/P1) 

2580 

V01 = VI (P01/P1) 

2590 

VC1 = VI (PC1/P1) 

2600 

VN2 = VN1 ~ 

2610 

V02 = VOl - OCON (112/ 32 x 60) 

2620 

VC2 = VC1 - VC4 

2630 

V2 = V02 + VN2 + VW2 + VC2 

2640 

VW2 

PW2 = ■— P2 

2650 

DW2 = DEWT (PW2) 

2710 

IF T1-DW1 = 11.25 ± 1.75 AND ~ 
T2-DW2 = 11.25 ± 1.75 THEN 
BRANCH 

2720 

IF T1-DW1 > 4 THEN BRANCH 

2850-2860 

WRITE "INLET AIR HUMIDITY 
0UT-0F- RANGE" 

2730 

IF T1-DW1 < 14 THEN BRANCH 


Comments 


Calculate cathode air inlet stream 
parameters 


Calculate cathode air outlet stream 
parameters 
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Il-v 


0 

1 Table 1 - continued 



Program Line 
Numbers 

2740 

2880-2890 

2750 

2760 

2770 

2780-2790 

2800-2820 

2830 

2950 

2960 

2970 

2980 

2990 

3000 

3010 


Description Comments 

IF T2-DW2 > 7 THEN BRANCH Perform moisture balance checks 

WRITE "OUTLET AIR HUMIDITY 
OUT-OF- RANGE" 

IF T2-DW2 i 19 THEN BRANCH 

DPTDAV = h (T1-DW1+T2-DW2) 

IF DPTDAV = 11±1.5 AND EITHER 
T2-DW2 > 13 OR DPTDAV > 0 THEN 

BRANCH 

WRITE "AVE DEW PT DEPRESSION 0UT- 
OF- RANGE 

WRITE "ELECTROLYTE MOISTURE 
BALANCE NOT MAINTAINED" 

IF NFLAG = 1 THEN BRANCH Check NFLAG for program abort 

DELT1P = 22 -T1 + DW2 Calculate preferred AT 



T2P = DPI + DELT1P 
PW7 = PW1 
PN7 = PN1 
PC7 = PCI 


VC7 = (V7) 

VW7 = (V7) 



Complete definition of process air inlet 
stream 


Cife Systems, Jhc . 
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Table l - continued 


Symbol 



Program Line 
Numbers 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 


Comments 


Calculate remaining module parameters 


Complete definition of cathode air outlet 


Complete cathode air inlet stream 
definition 

Complete cathode air inlet def. 
Complete definition of inlet 


Cife Systems. Jhc . 
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Table 1 - continued 


Symbol 



I' 



rr 


i ! 

, . J 

| 

T 



. 1 J . . j 

1 

, ! 

h 



i 



J 


U 1 


1 

1 

1 

i 


] 


I 



t 


Program Line 
Numbers 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 


Description 
V9 = V3 
DW4 - 0.77 


Comments 


DW1 


■f2£).o. 


PW4 = PHTO (DW4) 


VW4 * 


PW4 


(VH4 + VC4) 


P4-PW4 
V4 = VH4 + VC4 + VW4 

V4SL = V4(U4) 

VC4SL = VC4 (U4) 

VH4SL = VH4 (U4) 

FC4 = CTRANS 

FH4 = VH4 ( 2 ‘ 01 ^ 2 X 60 1 
18.01 x 60' 


FW4 = VW4 


/ 18 .01 x 60^ 

V U2 j 


23T2 Refined H 2 dew point correlation 


Complete definition of anode gas outlet 


F4 = FC4 + FH4 + FW4 
CHWRTO = FC4/FH4 
HCVRTO = VHR/VC4 
P5 - P7 

DP56 = (V5) 2 C562 + V5(C561) 
P6 = P5-DP56 

_ (V5A)T6A + (V5-V5A) T5 
lb - V5 


Complete definition of anode gas outlet 


Calculate cooling air pressure drop 
Calculate cooling air outlet pressure 
Calculate cooling air out temperature 


Cife Systems , he. 
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Comments 


Calculate cathode air blower power 


Define stream after cathode blower 


Check if cooling blower is off 


Calculate cooling blower power 


Define cooling blower exit stream 


Cife Systems. Jhc. 
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Comments 


Calculate plenum exit conditions 
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Table 1 - continued 


Program Line 

Symbol Numbers 


] 


1 



I 


3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3880 

3890 

3900 

3910 


Description 


Comments 


AVI = VI (AV7/V7) 

AV2 = x 1.434 

AVU , VP . glp . m (1.434) 1 
AV9g VSt^ . 4 ^ (1,434) 

(1.434) 

AV4 . V4t ^ p ; 46 °? (1.434) 

AV5 = V5 AV7/V7 

AV6 = YiQ^- 4 AQl (1.434) 

V6A = V5A 

AV6A = (1 . 434) 

AVI 2 = V ^CT12 , * 460j , (1<434) 

AVI. 3 = V1S(T13 A 460) . (1>4J4) 

AV10EX = V 1Q CT7 1 m (1 .434) 
AV8 . vscia^eo! (1>434) 


HRDWGT = 817.9 
PWRPC * 136 
PWREC = 45 
PWRDAU = 100 


1 


Calculate actual stream flow rates 


Calculate actual stream flow rates 


Calculate equivalent weight penalty 


JCife Systems. Jhc. 
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Table 1 - continued 


Symbol 




Program Line 
Numbers 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990-4710 


Description Comments 

PWRTOT = PWRPC + PWREC + 

PWRCLB + PWRCTB + PWRDAU 

HTTOT - HEATLD + U3 (PWRTOT + 

POWER) 

PWRWGT = PWPEN (PWRTOT) Calculate equivalent weight penalty 

HTWGT = HTPEN (HTTOT) 

H20WGT = H20PEN (WPROD) 

OXWGT = OXPEN (OCON) 

EQWGT = PWRWGT + HTWGT + H OWGT 
+ OXWGT + HRDWGT L _ 

WRITE OUT ALL OUTPUTS 

END OF PROGRAM 
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TABLE 2 WATER VAPOR PRESSURE FUNCTION 


Program Line 
Numbers 

Description 

4750 

FUNCTION PHTO(TF) 

4760-4770 


4780 

TC = (TF-32) 1.8 

4790 

X = 374.11 - TC 

4800 

fEE _ x x a+bx*cx 3 

PHTO=10 l TC+F 1+DX 


Comments 

The input parameter is the Fahrenheit 
dew point temperature. The output para- 
meter is pH^O, in millimeters of mercury. 

Initialize constants A-G. 

Calculate Centigrade dew point temperature. 

Calculate the temperature span from the dew 
point to the critical temperature. 

Calculate water vapor pressure 


4810 


RETURN 
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TABLE 3 DEW POINT TEMPERATURE FUNCTION 


Program Line 
Symbol Numbers 



Comments 



4840 

4850 

4860 

4870 

4880 

4890 

7700 


FUNCTION DEWT(P) The input parameter P is the water vapor 

pressure in millimeters of mercury. The 
output parameter DEWT is the Fahrenheit 
dew point temperature 

EXTERNAL ROOT, PHTQ Functions ROOT and PHTO are used by 

function DEWT 

X=AL0G(P) I Calculate two trial values for the dew 

point temperature 

TA=-2 . 4 + 20.25X + 1.522X 2 

TB=TA +0.1 _ 

DEWT=ROOT(TA, TB, PHTO, P, 0.005, Function ROOT will call function PHTO start- 

0.005, 5) ing with dew points equal to TA and TB until 

the water vapor pressure is equal to P with 
temperature and vapor pressure tolerances of 
point .005 but not exceeding five trials. 

RETURN 
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TABLE 4 TRANSFER INDEX FUNCTION 


Program Line 
Symbol Numbers 




4930 


FUNCTION TICOR(PC,AF,CD, DEL) 



4940-5010 

5020 

5030 

5040 

5050 

5060 

5070 

5090 

•5100 

5110 


Comments 

Input parameters are CO^ partial pressure 
in millimeters of mercury, cathode air, flow 
in Cfm/cell, current density in Amp/Ft^ , 
and module temperature - inlet cathode 
air dew point temperature. The output 
parameter is TICOR in Lb C0 9 /Lb 0 9 . 

Initialize the correlation parameters in 
array S. 

PA is the effective inlet pCC^ corrected for 
nonbaseline cathode air flow. 

Calculate the J index which corresponds to 
current density. 

For current densities less than 10 ASF, extra- 
polate from 15 and 10 ASF. 

Calculate TI at the current density just below 
the actual current density. 

Current density should not exceed 40 ASF. 


Calculate TI at the current density just above 
the actual current density. 


Interpolate between the two current densities. 



-continued- 
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Table 4 - continued 


Symbol 



Program Line 
Numbers 

5120 

5130 

5140 

5050 


Description 


Comments 


TERP = - All 

TICOR=TI2xTERP+TIl (1-TERP) __ 

TIC0R=TIC0R(1+ .03536 (DEL-18 . 33) ) Correct TI for moisture conditions. 
RETURN 


£ife Systems, Jhc. 
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TABLE 5 ROOT FUNCTION 


Program Line 
Symbol Numbers 


Description 


Comments 




i 



nz 

T 


5180 


5190-5200 


FUNCTION R00T(X1,X2,YFCN,W,XT0L, Input parameters are the first and second 
YT0L,K) trial root values, the function to be 

called which returns the function of X, the 
value of the function at the desired root, 

X tolerance, Y tolerance, and maximum trials. 
The output value, ROOT, is the value of X 
when the function equals W. 

Initialize common and external statements. 


5210 


XA=X1 


Isolate XI and X2. 


5220 

XB=X2 

5230 

FA=YCFN (XA) - 1 

5240 

FB=YCFN(XB)-W 

5250 

BEGIN LOOP 

5260 

FA-XB-FB-XA 

FA-FB 


Find the error values at XA and XB. 


Extrapolate from the previous two 
trial values. 


5270 

5280-5290 


FN=YFCN (XN) -W 

IFC'FNj < YTOL and |xN-Xb| < XTOL) 
BRANCH 


Calculate the error at the next X value. 

BRANCH when the X and Y values are within 
tolerance. 


5300-5320 


5330 


IF (Kth TIME THRU LOOP) DUMP 
VARIABLES § PRINT MESSAGE 
"NONCONVERGENCE IN LOOP" 


If the root has not been found within K trials, 
print a message. 


XA=XB 


Drop the oldest trial value and add the new 
trial value. 


-continued- 
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Table 5 - continued 


Symbol 



C_) 


Program Line 
Numbers 

5340 

5350 

5360 

5370 

5380 

5390 


Description 

XB=XN 

FA=FB 

FB=FN 


IF(<Kth TIME THRU LOOP) BRANCH 
ROOT = XN 


RETURN 


Comments 


The root of the function returned is the 
latest trial value. 


Cife Systems, Jhc, 
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TABLE 6 MODULE TEMPERATURE SUBROUTINE 


Program Line 
Numbers 


Description 


Comments 


5430-5460 


SUBROUTINE TDRIFT 


Subroutine TDRIFT calculates the module 
temperature when the cooling air flow rate 
is specified. All inputs are through com- 
mon storage. All outputs except P2 are 
also through common storage. 

Initialize type, common, and external state- 
ments . 


ENTHPR=VI • CPA-T1+V3 ■ CPH-T3 


LJJ 


T2HIGH= 


ENTHPR+ . 99 ■ HEATLD 
V1-CPA+V3-CPH 


T2 LOW= 


EHTHPR+V5A • CPA -T 5+HEATLD 
VI • CPA+V3 • CPA+V5A- CPA 


T2=T2HIGH 


DUMMY=ERT (V5 A/N) 


T2= ROOT (T2HI GH , T2 LOW , ERT 1 , 0 , 
0.005, 0.005, 0.20) 


Calculate enthalpy entering the modules in 
the cathode air and inlet hydrogen streams. 

Calculate maximum possible module temperature. 
This is the temperature the module would 
rise to with no cooling air. 

Calculate the minimum module temperature which 
would occur with no heat transfer resistance. 

Call subroutine ERT to determine values of 
the heat transfer coefficient and the cooling 
fin efficiency, neither of which depends upon 
module temperature but only upon cooling air 
flow rate which is constant when subroutine 
TDRIFT is called. 

Start with trial values T2HIGH and T2L0W and 
use function ERT1 to find the module temper- 
ature which yields a heat balance for the 
specified cooling air flow rate. 


5530 


RETURN 
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5670 


IF (T6A < T) BRANCH 


TEMPERATURE 


Comments 

The input parameter is the module tempera- 
ture, The output parameter, ERT1, is the 
difference between the available module 
cooling air temperature drop and the re- 
quired module cooling air temperature drop. 

Initialize type, common statements. 

Calculate module voltage and heat load at the 
given temperature. 


Calculate the enthalphy change for the 
cathode air process hydrogen and cooling 
air flow, respectively, at the given module 
temperature. 


Calculate the outlet cooling air temperature 
from the inlet cooling air temperature and 
the enthalpy increase. 

The required module cooling air temperature 
difference depends upon the cooling air en- 
thalpy change x the resistance in the fin 
roots + the gas film resistance. 

If the cooling air temperature at the exit is 
less than the module temperature, then the 
log mean temperature difference can be cal- 
culated. 


-continued 
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Table 7 


continued 




5710 

5720 


ERT1 = DTAVA-DTREQ 
RETURN 


Comments 

If it is not, then assume that the available 
temperature difference is zero and the error 
is equal to the required temperature dif- 
ference. 


The available temperature drop is the log 
mean of the module cooling air temperature 
difference at the inlet and the outlet of 
the cooling air passages. 


JCife Systems , Jhc. 
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TABLE 8 HEAT BALANCE FUNCTION WITH VARIABLE COOLING AIR FLOW RATE 



Program Line 


Symbol 

Numbers 

Description 


Comments 



I ! 



I 


i 

j | 


57S0 


5760-5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 


FUNCTION ERT(V) The input parameter is the cooling air flow 

rate, Cfm/cell. The output parameter ERT 
is the difference between the available and 
required module-cooling air temperature dif- 
ferences. Inputs taken from common storage 
include the inlet cooling air and cathode 
air temperature, the cooling air heat load, 
the cooling air specific heat, the number of 
active cells, and the module temperature. 
Outputs through common storage include the 
heat transfer coefficient, the fin efficiency, 
the outlet cooling air temperature, the 
available temperature difference, and the re- 
quired temperature difference. 


IF (V < 1)HC=1.97V°‘ 3333 Calculate the heat transfer coefficient. 

IF (1 < V < 2 <»883)HC=1.21 + 

0.34V + 0.42V 

If (2.9883^ V < 4)J1C=2V 

IF (4 < V)HC=2. 639016V" 8 

ETA=1 Calculate the fin efficiency. 

IF (0.32194 < V < 24. 72)ETA= 

1.0644 - 0.1135V 0,5 

IF (24.72 S V)ETA=2.486V" 0 ' 5 

T6A=T5 * VOTHT 


-continued- 
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Table 8 - continued 


Symbol 

I 1 
I 


A 

f~ V 

i 



Program Line 
Numbers 

5870 

5880 

5890 

5900 

5910 

5920 

5930 


Description 

fyrncn- DHC rn -zn f , 3.876 
DTREQ-— (0.376 + 


IF (T6A < T2) BRANCH 


ERT = -DTREQ 


Comments 


Calculate the required temperature dif- 
ference from the cooling air heat load, 
resistance in the fins, and resistance in 
the stagnant air film. 

Branch and calculate the log mean temperature 
difference only if the outlet cooling air 
temperature is less than the module temperature 

There is no available temperature difference. 
The error ERT is minus the required temper- 
ature difference. 


RETURN 


DTAVA = 


T6A-T5 


In, 


T2-T5 

T2-T6A 


Log mean module cooling air temperature dif- 
ference . 


ERT=DTAVA-DTREQ 

RETURN 
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TABLE 9 RANGE TEST SUBROUTINE 


Symbol 

CZD 



4 ^ 


CZ> 


Program Line 
Numbers 


Description 


Comments 


5960 


SUBROUTINE T (VARNAM, VAR, BOT, Subroutine input parameters are the vari- 
T0P,I) able, value, the lower and upper limits, 

and the out-of-range counter. The sub- 
routine simply prints a message containing 
the first four parameters when the variable 
is out-of-range. 


5970 

COMMON IOUT 


5980 

IF (BOT < VAR 

< TOP) BRANCH 

5980 

RETURN 


5990 

WRITE, VARNAM, 

VAR, BOT, TOP 

6000 

1=1+1 


6010 

RETURN 



The message is printed on output device IOUT. 

The subroutine ends immediately if the 
variable is in range. 


JCife Systems, Jhc . 
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TABLE 10 BASE PROGRAM LISTING 


BASE 


100C 

lion *** CS-6 MATH MODEL BASE PROGRAM *** 
120G 

130$ TTY .84 


140SNDM 


130 REALM. I 

1 60 C OMM OH I GOT , CPA . CPH . DHC . DHA . DHH . HEATLDt DTREO . D'i'AV A » N» I 

170&HC . ETA . V 1 » Y3 . V5A . T6A . T5 , T3 . T1 » T2 

1B0 EXTERNAL EKT.ERT1 »PHT0 

190 DATA CPA »CPH /I •07 65*1 •ObGb/ 

2005-.U1.U2.U3. 04/51 .7007. 386. 7. 3. 419*28. 32/ 

210&.C782.C562.C561 *C12132/2.25F»-5» 1..303E-5. .0101.8.6118E-4/ 
220 C5132=C562+C 12132 
230 05131=0561 


240 U A =C 5 1 32 -C7 8 2 
250 I 0UT=1 

260 Pit I MT* “FILE INPUT IT OR F)".»* 

270 READ. ?FIN 
290 INP=50 
290 IF! ?FIN)INP=2 

300 TF!?FIN)CALL OPENF! 2»"MATHIN" ) 

310 PRINT. "FILE OUTPUT IT OR F)".t* 

320 READ. ?FOUT 
330 IF! .NOT. ?FOUT I I0UT=66 
340 GOT 06 
350 1 CONTINUE 
360 1 Ft .NOT. ?F OU T )G 0T06 

370 IF! -NOT. ?FIN)PRINT. "FILE FOR OUTPUT", t * 

380 HEAD! IHP.48JFNAME ^ 

390 48 FORMAT! A6 I 
400 I FI FNAME.EQ.“WAIT" )G0T06 

410 END FILE 1 f 

420 CALL CLOSEFI 1.FNAME.7) 

430 REMIND 1 
440 6 CONTINUE 

450 IF! .NOT. 7FINJPRINT. "INPUT DATA" , ♦ * 

460 READ! INP » )P0PSA. PCO.POOPSA . P8PSA.T7 , V7.DW7, P4PSA.T9. V9SL .Da9. 
470&N, I.DELT1 . VI .PWPEN.HTFEN.H20PEN* OXPEN.NFLAG 

49 OC 

490C INPUT DATA PLAYBACK: 

500C 

510 WRITE! I0UT;4) 

520 WRITE! I OUT; 230) 

530 4 FORMAT! /////) 

540 230F0RMATI" «**»•**■»#** IN PUT DATA**********" ) 



550 WRITE! I OUT? 1017) 

560 1017 FORMAT! " CABIN ATMOSPHERE*.") 

570 WRITE! IOUT;944)"POPSA",POPSA."PCO".PCO."POOPSA"»POOPSA 
580 WRITE! IOUT; 1032) 

590 1032FORMAT!" PROCESS AIR OUTLET/INLET:") 
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Table 10 - continued 


600 WRITEt I0UT5 944)"P8PSA"*P8PSA»“T7 ",T7,"V? "♦ V7."DW?" .Dili? 

610 WRITEt I OUT* 1031 ) 

620 1031 FORM A rC* H2 OUTLET /INLET?" ) 

630 ii RI TEt I OUT ? 944 ) "P4PSA" » P4PSA » "T9 “,T9,"V9SL". Y9SL,"Da ( 9“,DVi9 
640 Vi III TEC I OUT i 1 020 ) 

660 1020F0RMATC" MODULES:") 

660 WRITEt I0UT»944)"N ",N»"I M ,I,"DELTl"»DELTl»"n “*V1 

670 WRITEt I OUT ♦ 1021 ) 

680 1021FORMATC ** PENALTY WEIGHT FACTORS ? H ) 

690 WRITEt I OUT ? 944 ) "PWPEN" ♦ PWPEN , “HTPEN" . HTPEN » "H20PEN" , H20PEN , 
?00&"OXPEN" » OXPEN 
710 W R I TEU OUT 5 1022) 

720 1022FORMATC" PROGRAM CONTROL:") 

730 WRITEt I OUT? 944 >”NFLAG" .NFLAG 
740 WRITE (I OUT? 220 I 

750 220 FORMATt ** *****■»«■»*** RESULTS************" ) 

760C 

770C CHECK INPUTS: 

780C 


790 IR=0 

300 CALLTt "POPS A "»P0PSA»13.7.15.7»IR) 

810 CALLTt "PCO ",PCO, .5.10..IR) 

820 CALLTt "POOPSA"»POOPS,A» 2. »4. * IR) 

830 CALLTt "P8PSA "»P8PSA»13.7»15.7, IR) 

940 CALLTt “T7 ".T7.44. ,B0. , IR) 

850 CALLTt "V7 ",V?,0. ,600. >IR) 

860 CALLTt "DW? “ .DW? .41 . ,70 . , IR) 

870 CALLTt "P4PSA M ,P4PSA,14.8,21.2,IR) 

880 CALLTt "T9 “ .T9, 65. ,75. » IR ) 

890 CALLTt "V9SL “ ,V9SL» 0*.18» * IR) 

900 CALLTt “DW9 “.DW9.10. ,75. , IR) 

910 CALLTt "N “.8*90. .96. ♦ IR) 

920 CALLTt “I -.1,2.44.9. 76. IR I 
930 CALLTt "DELT1 "»DELT1,10.»25.» IR) 

940 CALLTt "VI “ .VI , 19.2,76.8, IR ) 

950 CALLTt "PWPEN ".PWPEN, 0. ,2. ,IR) 

960 CALLTt "HTPEN ".HTPEN. 0. ,2. .IR) • 

970 CALLTt "H20PEN" .H20PEN. 0 . .500* » IR ) 

980 CALLTt “OXPEN ", OXPEN, 0. .3000. »IR) 

■ 990 FLAG=NFLAG 

1000 CALLTt ".NILAS ".FLAG , 0 . , 1. » IR I 

1010 IFt IR.GT.O IGOTOl 

1020C 

1030C CHECK FOR SUFFICIENT H2? 

1040C 

1050 V9MSL=1.3*N*I*7.508E-3 
1060 IFt V9SL.GE. V9MSL >G0T01213 
1070 WRlTEtlOUT; 213 )V9MSL 
| 1080 213 FQRMATt “ INSUFFICIENT H2."»G10. 4, " 
1090 GOT 01 








SLPM IS' REQUIRED") 
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Table 10 - continued 


1100 1213 CONI I HOE 
1110C 

1120C CHECK CAinODE Alii CAPACITY: 

1130C 

1140 IF( vl .LE.70 )GOT09001 
1150 Vl=70. 

1160 WRITE! I OUT 5 9000 ) 

1170 9000FQRMAK " VI HAS BEEN CHANGED TO 70 SCFM. BLOWER CAPACJxY.") 

1180 9001 CONTINUE 

1190C 

1200C CALC. COOLING AIR FLOW WITH COOLING BLOWERS OFF: 

1210C 

1220 V7M1=V7-V1 

1230 QBs=C5 131+2 .*C782*¥7M1 

1240 QC=C782 W V7M1**2 

1250 V5MIN=( -QB+SQRT<QB*QB+4.*QA*QC >)/( 2.#QA! 

1260C 

1270C CALC* COOLING AIR HEAT LOAD. ETC. FOR INPUT MODULE TEMP: 

1280C 

1290 DW 1=DW7 
1300 T2=DW 1+DELT1 
1310 T2INP=T2 

1320 E=. 729 -. 22 *AL 0 &m+. 008 *I+. 005 *(T 2 - 78 . ) 

1330 HEATLD=N*I*< 1.25-EJ*U3 
1340 T1=T7 
1350 T3=T9 
1360 V3=V9SL/U4 
1370 T5=T1 

1380 DHA=V 1*CPA*< T2-T1 ) 

1390 DHH=V3*CPH*( T2-T3) 

1400 dhc=heatld-dha-dhh 
1410C 

1420C CHECK NEED FOR COOLING: 

1430C 

1440 IFI DHC.&T.O IGOT0898 
1450C 

1460C CALC. NEW MODULE TEMP IF COOLING BLOWERS ARE OFF: 

147 OC 

1480 888 CONTINUE 
1490 V5=V5MIN 
1500 V5A=N*V5MIN/96» 

1510 CALL TDRIFT 

1520 DR0P=T2INP-T2 

1530 WRJTE( lOUT»944>“Y5MIN*f V5MIN 

1540 WRITE( I OUT. 469) DROP. T2INP.T2 

1550 469 FORMAT!" COOLING BLOWERS ARE OFF*"/" MODULE TEMPERATURE FALLS". 
1560&F6.2.-F BELOW THE DESIRED* ♦ F6 . 2 » “F T0".F6.2."F.“ ) 

1570 GOT 0766 
15Q0C 

1590C CHECK THAT MODULI TEMP IS HIGH HOUGH TO TRANSFER HEAT 
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1600C AT LEAST TO COOLING FIN ROOTS: 

1610C 

1620 898 CONTINUE 

1630 IF( T2-TS.GE..3?6*DnC/N)G0?0765 
1640C 

1650C CALC* NEW MODULE TEMP IF COOLING BLOWERS ARE ON FULL: 

1 65.0 C 

1670 886 CONTINUE 
1080 V 5=440 * 

1690 v5A=V5*N/96. 

1700 CALL THRIFT 

1710 R IS E— i'2 -T2 1 NP 

1720 WRITE 1 1 OUT 5479 )RI SH* T2INP * T2 

1730 479 FORMAT! " COOLING B LOWERS ARE ON FULL."/** MODULE TEMPERATURE RISES’** 
17405;F6»2*"F ABOVE THE DESIRED” »F6. 2. ”F T0".F6.2»* , F.“ ) 

1750 GOT 07 66 
1760C 

177 OC CALC. COOLING AIR FLOW FOR INPUT MODULE TEMPERATURE: 

1780C 

1790 765 CONTINUE 

1800 V A=1.01 ;} DHC/< CPA*N*< T2-T5 ) ) 

1810 VB=2.*VA 

1820 V5A=1I*ROOT( V A ♦ VBtERT* 0. . .005* . 001 *20 ) 

1330 V5=96.*V5A/N 
1940 V5INP=Y5 
1850C 

1860C ARE COOLING BLOWERS OUT OF RANGE: 

107 OC 

1390 IF( V5.LT.V5MIN 1G0T0888 
1890 IFC V5.GT.440. 1G0T0886 
1900 WRITE! I OUT *3950) 

1910 3950 FORMAT! ” DESIRED MODULE TEMPERATURE IS MAINTAINED v.lTH”* 

1920*” COOLING BLOWERS AT PARTIAL CAPACITY.”) 

1930C 

1940C MODULE HEAT BALANCE IS MAINTAINED WITH COOLING BLOl.ERS IN RANGE: 
1950C 

1960 766 CONTINUE 
1970 V10=V?-V1-V5 . 

1930 WRITE! I OUT » 944 ) " V 5 1 NP ” » V 5 1 N P 
1990C 

2000C CHECK PLENON BYPASS FLOW : 

2010C 

2020 I F( VI 0 .GE . . 05* V7 )G 0T0244 
2030 WRITE! I OUT 5 242) 

2040 W RITE! I OUT \ 944 ) ” V10” . V 10 

2050 242F0RMAT! “ INSUFFICIENT INLET PROCESS AIR TO 
2060*“ PREVENT BACKMIXING THROUGH PLENUM BYPASS.” I 
2070 GOT 01 

2080C • 

2090C CALC. STREAM PARAMETERS REQUIRED FOR MOISTURE BALANCE CHECKS: 


A-33 


continued- 



£ife Systems, Jhc. 


Table 10 - continued 


2100C 

2110 244 CONTINUE 

2120 C0R34=I 14. 1/P4PSA )**. 8 

2130 1'4=P4PSA*U1 

2140 V3SL=V9SL 

2150 DP34=.3822*C0R34*V3SL 

2160 I F( V3SL.GT-22. JDP34=C0R34*< B.3183+.4187*< Y3SL-21.56Q1 1**1.?6I 
2170 ?3=P4+DP34; 

21 BO P3PSA=P3/U1 

2190 C0R93-(14.1/P3PSA>**.8 

2200 DP93=COR93*10.64*V3SL 

2210 I Ft V3SL.&T* 6.2 )DP93=C0R93*( 35. 14*Y3SL-195.25+EXP( 7. V5-.6537*V3SL ) ) 

2220 P9=P3+DP93 

2230 P9PSA=P9/U1 

2240 DP?S=C782* V 1 0* VI 0 

2250 P8=P8PSA*U1 

2260 F/=P8+DP78 

2270 P?PSA=P7/U1 

2280 DP12=V1*( . 001903* V1+. 04877 ) 

2290 P1=P7 
2300 P2=P1-DP12 
2310 PC1=PC0*P7PSA/P0PSA 
2320 CURDEN= I/. 244 
2330 DELT1 E=T2-DW 1 

2340 I'l-i’lCOIU PCI t VI /96. jCURPEN » DELT1E ) 

2350 00 ON=G « 58 0 3 E-4* N * I 
2360 CTRANS=TI*OCON 
2370 HC0N=0C0N*2. 016/16. 

2380 '.iPJlOD=OC ON+HC ON 

2390 VC4=CTRANS*[J2/( 44.01*60. ) 

2400 PW'9=PHTO< DW9 ) 

2410 Pi*3=P3*PW'9/P9 
2420 VH3=Y3*( 1.-PW3/P3 ) 

2430 V H4=V H3-HC ON *U2 /( 2.016*60. ) 

2440C TRIAL VALUE OF H2+C02 OUTLET WATER VAPOR PRESSURE: 

2450 PW4=PHT0( T2-6. ) 

2460 VB4=PW'4*( VC4+VH4 > /( P4-PW4 > 

2470 Dvil=DW7 
2480 PW l=PHTO( DWl ) 

2490 VU1=V1*PW1/P1 
2500 V*’3=V3-VH3 

2510 VliPR0D=W'PR0D*U2/< 18.01*60. ) 

2520 VW2=V V 1+VW’3-VV(4+VW PROD 

2530 P00=P00PSA*U1 

2540 P(T7=POO*P7PSA /POPS A 

2550 P01=P07 

2560 PN1=F1-P01-PW1-PC1 

2570 VN1=V1*PN1/P1 

2580 V01=V1*P01/P1 

2590 VC1=V1*PC1/P1 
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2600 VN2=VN1 

2610 V02=V01-0C0N*U2/(32.*60. ) 

2620 VC2=VC1-VC4 
2630 V 2 = V 02+V N2+ VW 2+ ¥ C 2 
2640 PW2=V«2*P2/V2 
2660 DW2=DEtff t PW2 ) 

2660 C 

26? 0C CHECK MODULE MOISTURE BALANCE: 

2680C 

2690 DD?1=T1-»W1 
27 00 DDP2=T2-DV(2 

2710 I FI ABStDD?l-11.25).LE.l.?5 .AND. ABS( BDP2-11.25) .LE. 1 . Vb ) GOT 030 

2? 20 IF(J)D?1.LT.4. )G0TO1210 

2730 Iff 0DP1.GT.14. JGOT01210 

2740 I Ft DDP2.LT. 7. KJ 0101211 

2760 I Ft DDP2.GT.19. 1G0X01211 

2760 DPXDAV-«5*( DDP1+DDP2 ) 

27 7 0 I Ft ABS( DPTDAV-ll . ! .LE» 1 .5 .AND. I DDP2.GE.13. .OR. DPTDAV.GE.10. ) )GOTO30 
2780 a'RITEt I OUT 5 654) 

2790 654F0RMAT t '* AVERAGE CATHODE AIR DEWPOINT DEPRESSION OUT OF RANGE." ) 

2Q00 28 WRITE! I OUT; 543 ) 

2610 sRITEt 1 OUT 5 944) "T1 " * T1 » "DDP1" * DDP1 » '* T2 " i T2» "DDP2" * DDP2 
2820 543F0RMATC* ELECTROLYTE MOISTURE BALANCE IS NOT MAINTAINED.") 

2830 I Ft NFLAG »EQ. 1 )G OTOl 
2840 GOT 030 

2860 1210 WRITE ( I OUT 5 432) 

2860 432 FOii MATH “ INLET CATHODE AIR DEWPOINT DEPRESSION OUT OF RANGE." ) 

2870 GOT 028 

2800 1211 WRITE ( I OUT » 321 ) 

2890 321F0RMATM" OUTLET CATHODE AIR DEWPOINT DEPRESSION OUT OF RANGE.") 

2900 GOT 028 
291 OC 

292 OC COMPLETE ALL STREAM DEFINITIONS: 

2930C 

2940 30 CONTINUE 
2950 DELT1P=22 . -T1+DW2 
2960 T2P=DW 1+DKLT1 P 
2970 Pw7=Pw 1 
2980 PN7=PN1 
2990 PC7=PC1 
3000 VC?=PC?*V?/P7 
3010 VV/7=P«i7*V7/P7 
3020 P(77=P01 ' 

3030 V 07 =P 07® ¥7 /P7 
3040 VN7=PN7*V7/P7 
3050 RH7=100 «*PW? /PHTOt 17 ) 

3060 FC1=VC1«44. 01*60- /U2 ' 

3070 F»: 1 =VW 1*18. 01*60 • /U2 
^3080 RH1=RH7 
3090 PH3=P3-PW3 
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3100 FH3=VH3*2. 016*60. /U2 

3110 EM0D=16.*E 

3120 POtfER=N*I*E 

3130 TE=TI/.Q2?5 

3140 PC2=VC2*P2/V2 

3150 FC2=FC1-CTRANS 

3160 FW2=VW2*18. 01*60. /U2 

3170 RH2=100.*PVi2/PHTO(T2J 

3180 T4=T2 

3190 V9=V3 

3200 DW4=.77*(DWl+DW2)/2. + .23*T2 

3210 PW 4=PHT 0( DW4 1 

3220 VVi4=PK4*< VH4+VC4) /( P4-PW4 ) 

3230 V4=VH4+VC4+VW4 
3240 V4SL«V4*U4 
3250 VC4SL=VC4«U4 
3260 VH4SL=VH4*(J4 
3270 FC4=C TRANS 
3280 FR4=VH4*2.016*60./U2 
3290 FW4=V\»'4*18.01»60./U2 
3300 F4=FC4+FH4+FW 4 
3310 CHWRT0=FC4/FH4 
3320 HCVRT0»VH4/VC4 
3330 P5=P7 

3340 DP56~V5*( V5*C562+C561) 

3350 P6=P5-DP56 

3360 T6={ V5A*T6A+( V5-V5A ) *T5 ) /V5 

3370 IF( VI .LE.62. )PWRCTB=2.8*V1+153.8 

3380 IFf Vl.tJT.62. .AND. VI .IE. 65. >PWRCTB=40.*V1-2150 . 

3390 IF< Vl.GT.65.)PWRCTB=-34.*Vl+2660. 

3400 Tll=T2+PNRCTB*U3/( Vl*CPA ) 

3410 VU=V2 
3420 P11=P8 
3430 PWRCLB=0. 

3440 DP1213=C12132*V5*V5 
3450 I F( V5 .LT . 1 . 01*V5MIN >G 0T014 
3460 DP1213=C12132*V5MIH*V5MIN 
3470 Tit={ DP78 /I • 869+ » 05 ) /I • 3 
3480 TR=TR # *( . 128+.102*DP78/1.869 ) 

3490 PwH=410.-.00396#< V5-368)**2 
3500 PWL=410.-.00178«( V5-306. )**2 
3510 PWRCLB-TR#PWH+( l.-TR)*PWL 
3520 14C0NTINUE 
3530 P12=P8+DP1213 
3540 T12=T6+PNRGLB*U3/( V5*CPA) 

3550 T13=T12 
3560 V12=V5 
3570 P13=P8 
3580 V13=V5 
3590 V8=VlO+V2+?5 
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3600 VW8=VW7+VK2-¥tfl 
3610 VC8=VC7-¥C4 
3620 rC8=VC8*P8/V8 
3630 VN8-VM7 
364.0 PN8=VH8*P8/V8 
3650 V 08=V 07-.5*( VH3-VH4 1 
3660 PW8=P8*VW8/Y8 
3670 DW8=DEWT(PWB1 

3680 T8=< T11*V 1 1+T13*Y13+T7*V 1 0+P0W ER*U3/CPA ) /V8 
3690 RH8=100.*PW87PHTO(T8) 

3700 AV?=V7*<T7+460. >*1.434/P7 

3710 AV1=V1*AV7/V7 

3720 AV2=V2*( T2+460. )*1.434/P2 

3730 AV11=V11*CT11+460.)*1.434/T11 

3740 AV9=V9*(T9+460. )*1.434/P9 

3750 AV3=V3*<T3+460. )*1.434/P3 

3760 AV4=V4*(T4+460. ) *1.434 /P4 

3770 AV5=¥5*AV7/¥7 

3780 A V 6=¥ 5* ( T 6+46 0 * )*1*434/P6 

3790 V6A=V5A 

3800 AV6A=V6A*( T6A+460* )*1.434/P6 
3810 A V 12=V12*( T12+460. )*1.434/P12 
3820 AV13=V13*(T13+460.)*1.434/P13 
3830 A V10EX=V10*( T7+460. )*1.434/P8 
3840 Ai/8=V8*( T8+460. )*1.434/P8 
3850C 

386 0C r EQUIVALENT WEIGHT CALCULATIONS: 

38700 

3880 HilDWGT~817«9 
3890 PW RPC =136* 

3900 PWHEC=45. 

3910 PKRDAU=100. 

3920 PW RT 0T=P a RPC +PW REC+PWRCL B+PW RC TB+P W RDAU 
3930 H T T OT=HE A TL D+U3* ( P w RT OT +P OWE R ) 

3940 Pis RWG T=P'W PEN*PWRT OT 
3950 HTWG T=HTPEN*HTTOT 
3960 H20WGT=H2 OPEN *W PROD 
3970 OXN G T = OX P EN * OC ON 

3980 EOV/G T=PtfRWG T+HTWG T+H2 OWG T+OXWG T+HRDWG T 
3990C 

4000C MAJOR OUTPUT SATEMENTS 
401 OC 

4020 KRITEf I0UT*456 )DELT1P»T2P»DW1»DELT1P 

4030 456 FORMAT ( " PREFERRED VALUE OF DELT1 IS“»F6.2t 

404GS" UNDER THESE CONDITIONS"/" SO THAT".F6.2» 

4050&" = T2 = DW1 + DELT1 ="»F6.2," +", F6.2,“." > 

4060C 

I 4070 944F0RMAT(5X»A6tG10.4»3(“ ! "»A6»G10.4)) 

4080C 

4090 WRITEi I OUT! 1020 ) 
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4100 W’RITE!IOUT5 944)"TI "»TI,"TE ",TE»"E ",E»"EHOD"»£MOD» 

41106"CTRANS"»CTRANS »"OCON"» 0C0H#"HC(8I" »HCON»*WPROD"f BPROD, 

4120d-"CURDEN" » CORDEN *-HEATLD° ♦ HEATLJ), “POWER- ♦ POWER 
4130C 

4140 WRITE! 1 OUT; 1014} 

4150 1014FQRMAT! " CATHODE AIR INLET:") 

4160 V;RITE(I0UT;944)-P1 ",P1,"PC1"»PC1, 

417 Ofr"PW 1 " , PW1 , "FC 1“ , FC1 , -Elf 1" , FW 1 , - VC1 " . VC1 1 - VIII" , VW1 ♦ 

4180&"V 01 "»V 01 *"VN1"» VN1»"T1 ",T1,"DW1",DW1,"RH1",RH1 
4190C 

4200 WRITE! I OUT! 1024 ) 

4210 1G24FGRMAT! " CATHODE AIR OUTLET:.-) 

4220 WRITE! 1 OUT 5 944 )"P2 “,P2,"DP12“,DP12,"PC2",PC2, 

423 0 6"PW2" , PW2 , " ¥2 “ , V 2 , " V C2“ , V C2 » " V W2 " , VW2 , 

42406“ V 02" ,¥ 02 , “ YN2" , VN2, “FC2" , FC2, “FW2" »Fvi2*“T2 ", T2 , "DU2“ , DW2 ,"RR2" , RHP 

42506, “Pll". PI 1,"VU",V11»"T11“. Til 

4260C 

4270 WRITE! I OUT 51010 I 

4280 1010FOHMAT! " PROCESS AIR INLET:" ) 

4290 WRITE! I OUT 5 944 )"P7 ",P?,"PW7“,PW7,"PN7",PN?,"YC7", YC7»"VW?"» YW7,“V07", V07, 

43006“VN7 “ » V N7 , " DW7" ,DW7 , “RH?"» RH7 

4310C 

4320 WRITE! I0UT5 1015) 

4330 1015FQRMAT! " PROCESS AIR OUTLET:") 

4340 WRITE! I OUT 5 944) *‘P8 " »P8, “PC8" ,PC8, "V10", ¥10* “DP78" , DP78* 

435 06" V 8 -»V8, "Via'8- , VW8»“ VC9“, VC8»“ ¥08", V0Q»"PW8“* PW8* "18 “,T8, 

4360£ M i)t;8“ *DW8, "ilH8" , RHB 
437 OC 

4380 WRITE! I OUT 5 1019 ) 

4390 1019FORMAT!" H2 INLET:") 

4400 WRITE! I OUT; 944) "P9 ",P9»"PW9“,PW9,"DP93“»DP93,"P3 "»P3 

44 1 06 » " PW3 “ , PW 3 » "PH3” » PH3 » " V 3 ", V3, "VH3", VH3, "VW3", VW3,"FH3",FH3»"V9MSL", V9MSL 
4420 C 

4430 WRITE! I OUT 5 1013) 

4440 1013FQRHAT! " H2 OUTLET:") 

4450 if/ lil TE ( I OUT 5 944 ) "P4 ",P4,"DP34“»DP34,"PW4",PW4,"V4 ", V4, "YC4", VC4, 
44606 ,, VH4 M »¥H4»"YW4”» VW4*"V4SL“» V4SL,"VC4SL“, VC4SL," VH4SL", VH4SL,"F4 ",F4, 
4470&"FC4‘' »FC4»"FH4" »FH4»"FW4" »FW4»"DW4“ »DW4»"CHWRT0" »CHWRTO*"HCYRTO" tHCVlt'i’O 
4480C 

4490 WRITE! IOUT51023) 

4500 1023F0RKAT!" HEAT BALANCE, MODULES:") 

4510 WRITE! I OUT 5 944 )**HEATLD" »HEATLD> "DHA“,DHA»"DHH"»DHH»"DHC"»DHC 

4520C 

4530 WRITE! I0UT5 1012) 

4540 1012F0RMAT! “ COOLING AIR:") 

4550 WRITE! I OUT 5944) "P5 ",P5»“DP56",DP56,"P6 ",P6 
45606, ”V5 "»Y5,”T5 ",T5,"T6 “,T6,“HC “,flC,"ETA",ETA 
45706, "V5A",¥5A,“T6A-,T6A 

45806, “P12",P12,-V12",V12,"T12", 112, "DP1213",DP1213,"Y5MIN", V5MIN 
4590C 
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4600 Vi El IE (I OUT» 1041) 

4610 1041FQRMAT( " ACTUAL VOLUMETRIC FLOW RATES:") 

4620 Vi RITE < I0UT;944)"AV1"»AV1,"AV2"»AV2,"AV3 "iAV3,"AV4"»AV4»"AV5"»AV5» 
4G30& ,, AV6",AV6,"AY6A"»AV6A»"AV7"»AV?»"AV8",AV8»"AV9"»AV9» 
4640&"AV10EX"»AV10EX*”AV11",AV11*"AV12 M »AV12»“AV13" , AV13 
4650C 

4660 WEI TE(I OUT; 1016) 

4670 1016FORMAT) " EQUIVALENT WEIGHT:") 

4680 WRITE( I OUT ; 944 )"PWRCLB" « PWRCLB « " PViRCTB" , PWRCTB* "PWRPC" *PWRPC , 
4690&" PW REC" »PWRECt" PW RDAU " » PWRDAU . "PWRTOT" * PWRTOT * "HTT OT" * HTT OT , 

47 0 0£r" PW RWGT" »PW RWG T * “HTWG T" » HTWG T » "H2 OWGT" , H20WGT » " OXWGT" , OXWGT » 

4710«-"HRDWGT" »IIRDWGT , "EQWGT" , EQWGT 

4720 GOT 01 

4730 END 

4740C 

4750 FUNCTIONPHTOI TF) 

4760 DATA A»B»C»D»EE,F*G /3.2437814, • 00586826* 1 .17023 79E-8, 

4770& • 002187 8462* 5. 219603* 273. 16 » 2.3025851/ 

4780 TC=(TF-32» )/l«8 
4790 X=374.11-TC 

4800 PHTO=EXP(G*(EE-(X/(TC+F) )»( A+B*X+C*X**3)/)1.0+D*X) ) ) 

•1810 RETURN 
4820 END 
483 OC 

4840 FUNCTION DEWTIP) 

4850 EXTERNAL ROOT.PHTO 
4860 XX=AL0G(P) 

4870 TA=-2.4+20 • 25*XX+1 •522*XX 4Ht 2 
4980 TB=TA+. 1 

4890 DEWT=SOOT< TA*TB»PKTO»P* *005* .005,5) 

4900 RETURN 
4910 END 
4920C 

4930 FUNCTION TICORt P»AF»CD*DEL) 

4940 REAL S<5,7) 

4950 DATA S /1 .75187 ,-.511449, .0775073, -. 00592584, .000179862 , 

4960 & 1.42306, -.271935*. 0210187,-. 00034839, -1.8475E-5* 

4970& 1. 08190, -.110821,-. 0081408, .00196359, -8. 5832E-5, 

4980 <5: • 90258,-. 105068, . 0025161 ,. 00028694, -1 .3673E-5, 

4990& .71551, -.072213*. 0024297, 9. 08E-6, -3. 48E-7, 

5000& .61612, -*055237, .0003803*. 00028605, -1.5623E-5, 

5010& *52087, -.035109, -.0014939, .00035115, -1.4808E-5/ 

5020 PA»P*(AF/.44I**M.84*P+1-.)*BXP(“.84*P.M 
5030 J-CD/5.-1* 

5040 IF( J.LT.l )J=1 

5050 TI1=PA*( $< l,J)+PA*( S( 2, J )+PA*( S< 3,J )+PA<M S( 4, J )+PA*S< 5,J ) ) ) ) ) 

5060 IF(J.IT.7)G0 TO 8 

5070 TIC0R=TI1 

5080 GOT 09 

5090 8 J=J+1 
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5100 TI2»PA*< S( 1, J l+PA*(S< 2, J I+PA*( St 3, J l+PA*< St 4, J HPA*S( 5, J I nil 

5110 AII»J 

5120 TERP=CD/5.-AII 

5130 TIC0R=TI2*TERP+TI1*( l.-TERP) 

5140 9 TICOR=TICOR*(l.+.03536*t DEL-18. 33)1 
5150 RETURN 
5160 END 
5170C 

5180 FUNCTION ROOTt Xl»X2»YFCN»tf,XT0L»YT0L»K I 

5190 COMMON I OUT 

5200 EXTERNAL YFCN 

5210 XA=X1 

5220 XB=X2 

5230 FA=YFCN ( XA ) -¥ 

5240 FB=YFCNt XB l-W 

5250 DO 91 lR00T=lfE 

5260 XN=( FA*XB-FB*XA ) /( FA-FB ) 

5270 FN=YFCN(XN )-W 

5280 IF(ABS(FN).LT.YTOL .AND. 

52905- ABS ( XR-XB ) • LT » XT OL >G 0 TO 99 

5300 IF( IROOT «GE»K iWRlTEt I OUT! 200 )X1»X2» WtXTOL » YTOL * IROOT » 

5310& XA,XB,XN»FA,FB,FN 

5320 200 FQRMATt " NONCONVERGENCE IN R00T“,5G11.4, I3/7G11 .4 ) 

5330 XA=XB 
5340 X3=XN 
5350 FA=FB 
5360 FB=FN 
5370 91 CONTINUE 
5380 99 ROOI=XN 
5390 RETURN 
5400 END 
541 OC 

5420 SUBROUTINE T DR I FT 
5430 REAL Nfl 

5440 C OMMON I OUT * CPA . C PH » DHC . DHA » DHH . HEATLD, DTREQ. DTA VA » N » I , E, 

54505-HC , ETA , VI » V3 , VSA, T6A» T5» T3 » T1 » T2 

5460 EXTERNAL ERT*ROOT»ERTl 

5470 ENTHPR=V1*CPA*T1+V3*CPH*T3 

5480 T2HIGH=( ENTHPR+. 99*HEATLD ) /( V1*CPA+V3*CPH ) 

5490 T2L0W=( ENTHPR+V5A*CPA*T5+HEATLD ) /( V1*CPA+V3«CPH+Y5A*CPA I 

5500 T2=T2HIGH 

5510 DUMMY =ERT( V5A/N ) 

5520 T2=ROCT(T2HIGHfT2LO«»ERTltO.». 005, .005,201 
5530 RETURN 
5540 END 
5550C 

5560 FUNCTION ERT1CTI 
5570 REAL N»I 

5580 COMMON IOUT»CPA»CPH*DHC»DHA»DHH,HEATLD»DTB.EQt DTAVA.N, I ,E, 
5590&HC » ETA * VI , V3 » V5A , T6A » T5 , T3 , T1 » T2 
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Table 10 - continued 


5600 E=.?29-.22*AL05( I )+.008*I+.005*( T-78. ) 

5610 HEATLD=N*I*(1.25-E)*3.419 

5620 DHA=V1*CPA*( T-Tl ) 

5630 DHH=V3»CPH*(T-T3) 

5640 DHC=HEATLD-DHA-DHH 
5650 T6A=T5+DHC/(V5A*CPA> 

5660 DTREQ=DHC*< .376+3. 876 /( HC*ETA ) ) f& 

5670 IF( T6A.LT- IlGOTO 1086 
5680 ERTl=-DTflEQ 
5690 RET UAH 

5700 1086 D‘i’AVA=( T6A-T5) /ALOG-t ( T-T5 ) /( T-T6A ) ) 

5710 ERT1=DTAV A-DTHEQ 
5720 RETURN 
5730 END 
5740C 

5750 FUNCTION ERT( V ) 

5760 HEAL N.I 

5770 C OMM ON I OUT * CPA * CPH * DHC . DR A * DHH * HEATLD, DTREQt DTAV A . N ♦ 1 t E, 
57 OO.vHC » ETA* V 1 , V3 » V5 A » T6 A * T5 . To * T1 » T 2 
5790 IF( V.LE.l. )HC=1 .97*V’ i# ( . 3333 ) 

5300 I FI V »GT.l • .AN)). v ! .LT.2.9883)BC=1.21+V*( .34+.42*V ) 

5810 IF( V.GE.2.9BB3 .AND. V.LE.4. )HC=2.*V 
5820 IF< V.0T.4. )HC=2.639016*V**< .8) 

5330 ETA=1 » 

5840 IFIV.GT.. 32194 .AND. T.LT .24.72 )ETA=1.0644-. 1135*SQRT( V) 
5850 IF( V.GE. 24.72 ) ETA-2. 486 /SORT ( V) 

5860 i‘6A=T5+DRC /< V*CPA*N ) 

5870 DTiiEG=DHC*t . 376+3. 876/( HC*ETA > >/N 


5880 IFCT6A.LT. 12 >00 TO 86 
5890 ERT=~j)jl'REG 
5900 RETURN 

5910 86 DTAVA=( T6A-T5 > /ALOGt < T2-T5 ) /( T2-T6A ) I 

5920 ERT=DTAVA-DTREQ 

5930 RETURN 

5940 END 

5950C 

5960 SUBROUTINES VARNAM* VAR.BOT.TOP* I ) 

5970 COMMON I OUT 

5980 IF( v AR-GE.BOT.AflD. VAH.LE.TOP ) RETURN 
5990 WHITE) I OUT; 10) VARNAM* VAR* BOX* TOP 
6000 1=1+1 
6010 RETURN 

6020 lOFORMATt 1X»A6**'= , **G10.4*" RANGE: ■*. 2010*4) 
6030 END 
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TABLE 11 CHECKS AND MESSAGES 


1. CONDITION: An input variable is out of the prediction range. 

MESSAGE: VARIABLE = XX. XX RANGE: XX. XX XX. XX 

2. CONDITION: Less than 1.3 times stoichiometric amount of H- is 

supplied. 

MESSAGE: INSUFFICIENT HYDROGEN. XXX. XX SLPM IS REQUIRED. 

3. CONDITION: Cathode air blowers cannot supply the requested flow 

rate. Program sets the flow equal to blower capacity. 

MESSAGE: VI HAS BEEN CHANGED TO 70 SCFM , BLOWER CAPACITY. 

4. CONDITION: Not enough heat is generated in the modules to attain 

the setpoint module temperature. 

MESSAGE: COOLING BLOWERS ARE OFF. MODULE TEMPERATURE FALLS 

X.XXF BELOW THE DESIRED XX.XXF TO XX.XXF. 

5. CONDITION: Process streams and cooling air cannot remove enough 

heat to maintain the setpoint module temperature. 

MESSAGE: COOLING BLOWERS ARE ON FULL. MODULE TEMPERATURE RISES 

X.XXF ABOVE THE DESIRED XX.XXF TO XX.XXF. 

6. CONDITION: Normal heat balance is attained. 

MESSAGE: DESIRED MODULE TEMPERATURE IS MAINTAINED WITH COOLING 

BLOWERS AT PARTIAL CAPACITY. 

7. CONDITION: Process air flow does not exceed cathode air plus cooling 

air flow by at least 5%. 

MESSAGE: INSUFFICIENT PROCESS AIR TO PREVENT BACKMIXING THROUGH 

PLENUM BYPASS. 

8. CONDITION: Inlet process air moisture conditions are out of tolerance 

and will not support steady state cell operation. 

MESSAGE: INLET PROCESS AIR DEW POINT DEPRESSION OUT OF RANGE. 

ELECTROLYTE MOISTURE BALANCE IS NOT MAINTAINED. 

9. CONDITION: Outlet process air moisture conditions are out of tolerance 

and will not support steady state cell operation. 

MESSAGE: OUTLET PROCESS AIR DEW POINT DEPRESSION OUT OF RANGE. 

ELECTROLYTE MOISTURE BALANCE IS NOT MAINTAINED. 
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Table H - continued 

10. CONDITION: Average of inlet and outlet process air moisture condition 

is out of tolerance and will not support steady state cell 
operation. 

MESSAGE: AVERAGE PROCESS AIR DEW POINT DEPRESSION OUT OF RANGE. 

ELECTROLYTE MOISTURE BALANCE IS NOT MAINTAINED. 

11. CONDITION: Convergence subroutine (ROOT) did not approach a solution 

within the specified number of iterations. 

MESSAGE: NONCONVERGENCE IN ROOT (PRINT ROOT PARAMETERS) 
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TABLE 12 NOMENCLATURE AND UNITS 


Composite Variable Names 

First Prefix P 

V 

AV 

F 

DP 

DW 

T 

RH 

Second Prefix C 

0 

N 

H 

W 

(None) 

Stream Number 0 

1 

2 

3 

4 

5 
5A 

6 
6A 

7 

8 
9 

10 

11 

12 

13 

Units Suffix (None) 

PSA 

PSG 

SL 

Additional Variable Names 

A,B,C,D,EE,F,G 
All, J 
CD 

CHWRTO 


(Partial) Pressure, mm Hg 

Volume Flow Rate, Scfm 70F, 760 mm Hg 

Volume Flow Rate, Cfm 

Mass Flow Rate, Lb/Hr 

Pressure Drop 

Dew Point, F 

Temperature, F 

Relative Humidity, % 

Carbon Dioxide (CO_) 

Oxygen (0O 
Nitrogen IN ? ) 

Hydrogen (H,) 

Water (HO y 
Total Stream 

Cabin Atmosphere 

Cathode Air Modules Inlet 

Cathode Air Modules Outlet 

H 2 Modules Inlet 

H 2 Modules Outlet 

Cooling Air Inlet 

Cooling Air Inlet, Active Cells 

Cooling Air Outlet 

Cooling Air Outlet, Active Cells 

Process Air Inlet 

Process Air Outlet 

H System Inlet 

Plenum Bypass 

Cathode Blowers Outlet 

Cooling Blowers Outlet 

Cooling Dampers Outlet 

Units of First Prefix 

Psia 

Psig 

Slpm 


Constants in pH 2 0 Dew Point Equation 
Indices Determine S Constants 
Current Density 

CO /H Weight Ratio, Lb CO /Lb H 2 


continued- 
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Table 12 - continued 
CJKN 


COR34,COR93 

CPA 

CPH 

CTRANS 

CURDEN 

DELT1 

DELT1P 

DEUE 

DHA 

DHC 

DHH 

DDP1,DDP2 
DPTDAV 
DROP, RISE 

DTAVA 

DTREQ 

E 

EMOD 

EQWGT 

ERT,ERT1 

ESTACK 

ETA 

FA,FB,FN 

?FIN 

FNAME 

?FOUT 

HC 

HCON 

HCVRTO 

HEATLD 

HTPEN 

HTTOT 

HTWGT 

H20PEN 

H20WGT 

I 

INP 
I OUT 
MATH IN 
N 

NERROR 


Coefficient in Pressure Drop Equation 

J = Inlet Stream Subscript 

K = Outlet Stream Subscript 

N = Degree of Term 

AP Correction Factors for Absolute Pressure 
Volumetric Specific Heat, Air, Btu/Hr-Scfm-F 
Volumetric Specific Heat, H 2 , Btu/Hr-Scfm-F 
CO^ Transferred, Lb/Hp 
Current Density, A/Ft” 

Input Control Variable = T2-DP1, F 
Preferred Value Control Variable = T2-DP1, F 
Actual Control Variable = T2-DP1, F 
Enthalpy Gain of Inlet Process Air, Btu/Hr 
Enthalpy Gain of Cooling Air, Btu/Hr 
Enthalpy Gain of Inlet H 0 , Btu/Hr 
Dew Point Depression, Streams 1 and 2 
Process Air Dew Point Depression, Average, F 
T2-CDWI + DELT1) , Absolute Value of Module 
Temperature Offset 

Log Mean Available Temperature Drop, F 

Required Module - Cooling Air Temperature Drop, F 

Cell Voltage, Volt 

Module (16 Cells) Voltage 

Total System Equation Weight 

Difference Between DTREQ and DTAVA 

Stack Voltage, Volt 

Cooling Fin Efficiency, Dimensionless, 0-1 

Dependent Values Corresponding to XA,XB,XN 

File Input Indicator 

Variable Equal to Output File Name 

File Output Indicator 

Cooling Fin Heat Transfer Coefficient, 

Btu/Hr-Ft -F 

H^ Consumption, Lb/Hr 

H^/CO^ Volume Ratio, Scfm H ? /Scfm C0„ 

Net Heat Produced, Btu/Hr 

Heat Rejection Penalty, Lb/Btu/Hr 

Total Heat Rejection 

Heat Rejection Penalty Weight 

H^O Vapor Rejection Penalty, Lb/Lb/Hr 

H_0 Rejection Penalty Weight 

Current , A 

Input Device Code: 2=File, 50=Terminal 
Output Device Code: l=File, 66=Terminal 
Name of Input Data File 
Number of Cells in Circuit 
Check Violation Indicator 

0 - No Violation 

1 - Violation 

contmued- 
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Table 12 - continued 


NF LAG, FLAG 

Program Option Integer = 0 or 1 

OCON 

0 2 Consumption, Lb/Hr 

OXPEN 

0 2 Consumption Penalty, Lb/Lb/Hr 

OXWGT 

0 2 Consumption Penalty Weight 

P 

Inlet pC0 2 

PA 

Inlet pC0 2 Corrected for Effect of Air Flow 
Electrical Power Produced, Watt 

POWER 

PWPEN 

Power Penalty, Lb/Watt 

PWRCLB 

Cooling Blower Power, Watt 

PWRCTB 

Cathode Blower Power, Watt 

PWRDAU 

Data Acquisition Unit Power, Watt 

PWREC 

Emergency Controller Power, Watt 

PWRPC 

Primary Controller Power, Watt 

PWRTOT 

Total Power, Watt 

PWRWGT 

Power Penalty Weight 

QA,QB,QC 

Coefficients of V5 in Quadratic Formula 

s 

Array containing Coefficients of PA in TI 
Correlation 

TA,TB 

Trial Values of Dew Point, F 

TC,TF 

Dew Point, C, F, respectively 

TE 

Current Efficiency, % 

TERP 

Current Density Interpolation Variable 

TI 

Transfer Index, Lb CO„/Lb 0„ 

T2INP 

Set Point Value of T2 1 

T2P 

Preferred Value of T2 

Til 

TI at one of the seven current densities 
just below the desired current density 

T12 

TI at one of the seven current densities 
just above the desired current density 

U1 

Conversion Factor, mm Hg/Psi 

U2 

Conversion Factor, Scf/Lb Mol 

U3 

Conversion Factor, Btu/Hr-Watt 
Conversion Factor, 1/Ft 

U4 

V,TR 

Dummy and Interpolation Variables 

VA, VB 

Trial Values for V5 

V5INP 

Cooling Flow for Set Point Module Temperature 

V5MIN 

Cooling Flow with Blowers Off 

V7M1 

Plenum Inlet Flow less Cathode Air Flow 

V9MSL 

Minimum Flow of H 2 Required 

WAIT 

Dummy File Name to Prevent Closing Output File 

WPROD 

Water Production, Lb/Hr 

X1,X2,XA,XB,XN 

Trial Values of Independent Variable in 
Subroutine Root 
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APPENDIX B CS-6 BASE PROGRAM SAMPLE OUTPUTS 

TABLE PAGE 

1 Output Examples B-2 
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TABLE 1 OUTPUT EXAMPLES 


«****#*«*» j ^pu.jv 

0A?,TW .ATMOSPHERE: 


POPS A 14.70 ! 

process aik outlet /inlet 

PCO 

m 

♦ 

2.800 

ft 

POOPSA 

5.100 

1 



P9PS 
r?2 OUi'LE 

A 14.05 ! 

T /INLET: 

T7 

55.80 

9 

V? 

444.0 

1 

Ufa V 

4£U(h.' 

P4PS 
MODULES : 

A 14.80 ! 

T9 

75.00 

1 

V9SL 

9.700 

j 

Dll G 

V4.00 

N 

PEI-:. A LTV 

96.00 • 

if EIGHT FACTORS: 

I 

4.880 

t 

DELT1 

19.00 

9 

VI 

• 0 0 

r»vPE' 

PiiOrilAM 

N 0.5010 • 

CONTROL: 

HI PEN 

0.1280 

9 

H 2 OP EH 

134.0 

1 

O/C P JfC [4 

i — * 

G> 

Ck 

• 


NPJ. AG 0.0000 » 


DfcSlsEi) .MODULE TEMPERATURE IS MAINTAINED lit I Til COOLING BLOWERS 
V5INP 261.6 * 

PREFERRED VALUE OP DEL'i‘1 IS 18.61 UNDER THESE CONDITIONS 
SO THAT 66-81 = 12 - DW1 + DELT1 = 48.00 + 13.81. 

MODULES : 


AT PARTIAL CAPACITY. 


T I 

2.184 

9 

TE 

79.41 

C TRANS 0.6732 

1 

OCON 

0.3033 

C JR DEN 20.00 

CATHODE AIR INLET: 

1 

HEATLD 

1419. 

PI 

726.8 

9 

PCI 

2. 678 

Fiji 

1 .775 

9 

VC1 

0.1989 

V Ml 
CATHODE 

41.78 

AIR OUTLET: 

? 

11 

55.80 

P2 

718.6 

9 

DP12 

8.183 

V2 

53.97 

( 

VC2 

0.1004 

VN2 

41.78 

1 

FC2 

0.6853 

re 2 

52.61 

9 

EH 2 

59.89 

Til 

PROCESS 

34.94 
AIR INLET: 

• 


■ 

P7 

726.8 

; 

PW7 

8.549 

VW7 

RH7 

PROCESS 

5.223 

75.01 

AIR OUTLET: 

9 

9 

V 07 

93.63 

P3 

726-4 

1 

PC8 

2.515 

V8 

444.0 

1 

VC 8 

5.350 

Fa a 

H2 INLET 

8*753 

V 

TQ 

64.85 

P9 

912.2 

1 

PC 9 

21.49 

PC 3 

18.11 

9 

PH3 

750.6 

VW5 

0.8071E-02 

» 

FH3 

0.1046 


9 

E 

0.3643 

1 

EM OD 

5.829 

? 

1 

HCON 

POWER 

0.3884E-01 

170.7 

9 

j 

upROD 

0.3471 

9 

Phi 

8.549 

9 

FC1 

1.359 

f 

Vhl 

0 . 6352 

9 

¥01 

11.39 

1 

Dtfl 

48.00 

9 

RH1 

75.01 

! 

PC2 

1.336 

9 

Pii2 

10.14 

i 

Vi', 2 

0.7619 

9 

V 02 

11.33 

i 

FW2 

2.129 

t 

12 

67.00 

t 

Pll 

726.4 

ft 

Vll 

53.97 

f 

PH? 

562.3 

9 

VC? 

1.636 

♦ 

VNV 

343.5 

( 

DW7 

43.00 

i 

V10 

128.4 

t 

DP78 

0.3711 

9 

VC8 

1.53? 

1 

¥08 

93.57 

1 

DW8 

48.63 

1 

RH8 

55.67 


DP93 

143.5 

1 

P3 

7m.'/ 


V3 

V9MSL 

0.3425 

4.573 

1 

t 

VH3 

0.3344 
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Table 1 - continued 


H2 OUTLET: 


P4 

766.2 

\ 

DP 34 

3.566 

! 

PW4 

10.73 

9 

Y4 

0.3132 

YC4 0. 

9859E-01 

* 

¥H4 

0.2103 

t 

VW4 

0.4393E-02 

t 

V4SL 

8.871 

VC4SL 

2.792 

f 

YH4SL 

5.955 

« 

F4 

0.7513 

f 

FC4 

0.6732 

FH4 0 • 

6577 E-01 

* 

FW4 

0.1227E-01 

9 

DW4 

54.14 

1 

CHfeRTO 

10*24 

HCVHi'O 

2.133 

9 









HEAT BALANCE 

» MODULES 

• 









HEATLB 

1419. 

1 

DHA 

651 . 1 

9 

DHH 

-2.923 

9 

DHC 

770.5 

COOL I HO AIR: 











P5 

726.8 

• 

DP56 

3.533 

9 

P6 

723.2 

t 

V5 

261.6 

T5 

55.80 

1 

T6 

58.54 

! 

HC 

5.255 

9 

ETA 

0.8770 

V5A 

261.6 

1 

T6A 

58.54 

f 

P12 

728.5 

! 

V12 

261.6 

112 

63.08 

1 

DP1213 

2.085 

9 

V5MIN 

49.20 

1 



ACTUAL VOLUMETRIC FLOW RATES: 








AU 

54.96 

i 

AV2 

56.75 

t 

AV3 

0.3418 

1 

AV4 

0.3094 

AV6 

266.2 

% 

AV6 

268.9 

• 

AV6A 

268.9 

t 

AV7 

451.9 

A VB 

460.0 

| 

AV9 

0.2081 

| 

AV10EX 

130.8 


AV11 

58.06 

A V 1 2 

269.3 

! 

AV13 

270.1 

• 






EQUIVALENT WEIGHT* 










Pi/RCLB 

374.1 

f 

PWRCTB 

305.0 

9 

PWRPC 

136.0 

t 

P Vi it EC 

45.00 

Piv'RDAU 

100.0 

9 

PWHTOT 

960.1 

j 

hii or 

5285. 

1 

PWRivGT 

567.4 

HTWGT . 

676.5 

9 

H20WGT 

46.51 

1 

OXWGT 

473.5 

! 

HRDWGT 

817.9 

EQWOT 

2582. 

! 









***#«•*****! (jpUT DAT A********** 








CABIN ATMOSPHERE: 










POPS A 

14.70 

« 

PCO 

0.6830 

9 

POOPSA 

3.100 

9 



PROCESS AIR OUTLET /INLET 

• 

• 








POPS A 

14.05 

« 

T7 

55.80 

f 

V? 

444.0 

9 

Bii? 

48.00 

H? OUTLET /INLET: 









P4PS A 

14.80 

i 

T9 

75.00 

9 

V9SL 

9.700 

9 

DW9 

74.00 

MODULES : 










N 

96.00 

9 

I 

4.880 

1 

DELT1 

19.00 

9 

VI 

54.00 

PEN A LI y WEKHT FACT out 

: 








PW PEN 

0-5910 

9 

HTPEN 

0.1280 

1 

H20PEN 

134.0 

; 

OXPEti 

1536. 

PROGRAM COMTR 

01,5 









NFL AO 

0.0 poo 

f 









•*hhh* ******* HE S 0 L TS ' *** *** ** * 








DESIRED MQDUL 

E TEMPERA TUi 

iE IS MAINTAINED WITH 

COOLING 

BLOWERS AT 

PARTIAL CAPACITY. 

VbINF 

261.6 

9 









PREFERRED VALUE OF DELT1 

IS 18.82 UNDER THESE 

CONDITIONS 




SO THAT 66.02 

= 12 = DW1 

+ DELT1 

= 48.00 + 

18 

.82. 





MODULES: 











TI 

0.8224 

! 

TE 

29.91 

9 

E 

0.3643 

« 

EMOD 

. 5.829 

C TRAMS 

0.2535 

4 

OCON 

0.3083 

9 

HCON 0 

.3884E-01 

1 

WPROD 

0.3471 

CURDEN 

20.00 

j 

HEATLD 

1419. 

1 

POWER 

170.7 

9 


CATHODE AIR INLET: 










PI 

726.8 

9 

PCI 

0.6531 

9 

PW1 

8.549 


FC1 

0.3314 

FW1 

1.775 

f 

¥C1 0 

. 4853E—01 

9 

VW1 

0.6352 


¥01 

11.39 

VN1 

41.93 

9 

Tl 

55.Q0 

9 

Dill 

48.00 


RH1 

75-01 
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Table l - continued 


CATHODE AIR OUTLET: 


P2 

718.6 

! 

DP12 

8.183 

f 

PC2 

0.1516 

9 

Pk2 

10.15 

V 2 

54.03 

f 

VC2 0 

•1140E-0! 

t 

VM2 

0.7630 

; 

V02 

11.33 

VN2 

41.93 

i 

FC2 0 

.7736E-01 

! 

FW2 

2.132 

9 

T2 

67.00 

bis 2 

52.62 

i 

RH2 

59.91 

9 

Pll 

726.4 

9 

Vll 

54 . 03 

Til 

84.94 

t 









j 'f'CJ’SS AIR 

INLET: 










P7 

726.8 

i 

PW? 

8.549 

1 

PN7 

564.3 

9 

VC7 

0.3990 

W7 

5.223 

• 

V 07 

93.63 

9 

VN7 

344.7 

9 

DW7 

48.00 

RJJ? 

75.01 

« 









PROCESS AIR 

OUTLET: 










P8 

726.4 

9 

PC8 

0.5920 

( 

V10 

12Q.4 

9 

DP78 

0.3711 

V8 

444.0 

1 

VW8 

5.351 

} 

VC8 

0.3619 

1 

V 08 

93.57 

PWO 

8.753 

! 

T8 

64.85 

1 

BW8 

48.63 

1 

RH8 

55. 67 

H2 INLET: 











P9 

912.2 

• 

P i*9 

21.49 

1 

DP 93 

143.5 

1 

P3 

768.7 

PW3 

18.11 

i 

PH3 

750.6 

! 

V3 

0.3425 

9 

VH3 

0.3344 

Vw r 3 0. 

8071E-02 

• 

FH3 

0.1046 

t 

V9MSL 

4.573 

9 



H2 OUTLET: 











P4 

765.2 

9 

DP34 

3.566 

t 

PW4 

10.73 

< 

V4 

0.2509 

VC4 0. 

3713E-01 

1 

VH4 

0.2103 

! 

VW4 0 

•3520E-02 

« 

V4SL 

7.106 

VC4SI. 

1.051 

9 

VH4SL 

5.955 

♦ 

F4 

0.3291 

1 

FC4 

0.2535 

FH4 0. 

6577 E-01 

f 

Fiv’4 0. 

•9Q35E-02 

9 

DW4 

54.15 

j 

CHivRTO 

3.855 

HCVRTO 

5.663 

1 









HEAT BALANCE 

:» MODULES: 










HEATED 

1419. 

1 

DHA 

651.1 

• 

DHH 

-2.923 

t 

DEC 

770.5 

COOLING AIR: 











P5 

726.8 

1 

DP 56 

3.533 

9 

P6 

723.2 

f 

V5 

261.6 

T5 

55.80 

* 

T6 

58.54 

t 

EC 

5.255 

) 

ETA 

0.8770 

V 5A 

261.6 

1 

T6A 

58.54 

1 

P12 

728-5 

1 

V12 

261 . t 

T12 

63.08 

1 

DP1213 

2.085 

« 

V5MIN 

49.20 

1 



ACTUAL VOLUMETRIC FLOW 

RATES: 








AVI 

54.96 

« 

AV2 

56.Q2 

1 

AV3 

0.3418 

t 

AV4 

0.2478 

AV5 

266.2 

1 

A V6 

268.9 

9 

AV6A 

268.9 

! 

AV7 

451.9 

A V8 

460.1 

9 

AV9 

0.2881 

1 

AV10EX 

130.8 

I 

AV11 

58.12 

A.V12 

269*3 

! 

AV13 

270.1 

1 






EQUIVALENT WEIGHT: 










Psi&CLB 

374.1 

j 

PViRCTB 

305.0 

4 

PWRPC 

136.0 

9 

PWREC 

46.00 

PWRDAU 

100.0 

f 

PifiTOT 

960.1 

! 

HTTOT 

5285. 

! 

PtaRWGT 

567.4 

HTWGT 

676.5 

j 

H20NGT 

46.51 

I 

OXWGT 

473.5 

9 

HRDkiGT 

817.9 


EQWGT 2582. 
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APPENDIX C CS-6 CABIN pC0 2 SIMULATION PROGRAM DOCUMENTATION 
TABLE PAGE 


1 Main Program Flow Chart C-2 

2 Base Subroutine Flow Chart C-ll 

3 Water Vapor Pressure Function C-27 

4 Dew Point Temperature Function C-28 

5 Transfer Index Function C-29 

6 Root Function C-31 

7 Module Temperature Subroutine C-33 

8 Heat Balance Function With Variable Module Temperature. . C-34 

9 Heat Balance Function With Variable Cooling Air Flow Rate C-36 

10 Range Test Subroutine . C-38 

11 Mode B Current and Cathode Air Flow Subroutine C-39 

12 Cyclic Program Listing C-40 

13 Checks and Messages . C-58 

14 Nomenclature and Units C-60 

15 Key to Selective Output Variables C-64 


C-l 



C-2 


TABLE 1 MAIN PROGRAM FLOW CHART 



Comments 



150-720 

760 

770 

780 

790 

800 

810 

820 

830 

850 

860 

900 

910 


START 


Initialize type, common, equivalence, 
external and data statements 

PRINT, ’’FILE INPUT (T OR 

F)" 

READ, QFIN 

INP = SO 

IF (QFIN) INP=2 

IF (QFIN) CALL OPEN F(2, 

"MATHIN”) 

PRINT, "FILE OUTPUT (T OR F)" Indicate from terminal whether output 

will be on a file (T) or on the termin- 

READ, QFOUT al (F) . 

IF (NOT, QFOUT) IOUT=66 _ 

PRINT, "END OF INPUT DATA FILE" Program branches to this point and 

terminates when a file input statement 

CALL EXIT __ is attempted (usually line 1050) but 

the input file has been exhausted. 

IF (NOT QFOUT) BRANCH 


IF (NOT QFIN) PRINT, "FILE 
FOR INPUT 


Obtain output file name if file output 
is in use. 

-continued- 


Indicate from terminal whether input 
will be from data file MATHIN (T) , or 
from the terminal (F) . 
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Table 1 
Symbol 



continued 



Program Line 
Numbers 

Description 

Comments 

920-930 

! 

READ, FNAME 



980 


1020-1040 

1050 

1060 

1100 

1110 

1120 

1130-1160 

1210 

1220 

1280 


IF (FNAME f "SAME") CALL 
CLOSEF (1 , FNAME, 7) 


Assign the name to the file and close 
it unless the name is SAME, indicating 
that more output will be written into 
the same file. 


IF (NOT QFIN) PRINT, "PROBLEM 
IDENTIFIER" 


Read and write the problem identifier which 
may be any comments up to 84 characters long. 


READ, IDENTIFIER 

IF (QFIN) PRINT, IDENTIFIER 


PRINT, "NEW C02 GENERATION 
TABLE?" 

READ, QC02GT 

IF (QC02GT) READ, C02 GENERA- 
TION TABLE 


Input and output new C02 generation table 
if desired, or use the table stored in 
the program. 


IF (QC02GT) PRINT, C02 GENER- 
ATION TABLE 


IF (NOT QFIN) PRINT, "INPUT 
DATA" 


Read inputs for base. Mode B, and time 
intervals in the order and ranges 
specified in Table 1. 


READ, POPSA, PCO, . . . ,DT,DPRINT 


IF (NOT QFIN) PRINT, "PRINT 
BASE OUTPUT (T OR F)" 


Indicate whether the base program output 
table should be printed (T) or omitted (F) . 
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Table 1 - continued 




Comments 


Read new cyclic table output item sub- 
scripts if they are to be changed. 


Print message at terminal indi- 
cating that a set of inputs is 
complete and calculation is beginning. 


Calculate slopes and intercepts for 

Mode B current and cathode air flow curves. 


If Mode B is in effect, determine current 
and cathode air flow for the initial pC0 2 . 

Playback base, Mode B and time interval 
inputs with current and cathode air flow 
determined by Mode B if it is in effect. 
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Table 1 - continued 


Symbol 



Program Line 
Numbers 

1830 

1840-2170 

2180 

2190 

2230 

2240 

2280 

2290 

2300 

2310 

2320 



CALL BASE ( KMODE , KBASE , 1 , 
KERROR) 

IF (KERROR jiO OR DAYS =0) 
BRANCH 


NDT=DT 

NDAY=0 

MINCYC^TMAX (NSTEPS) 

NDAYS=DAYS 

NPRINT=DPRINT 


Comments 


Initialize out-of-range input variable 
counter. 


Subroutine T checks each input variable 
against its allowable Tange. Out-of-range 
variables are printed and cause IR to be 
incremented. 

If the counter shows that one or more in- 
puts is out-of-range, abort the simulations 
and read in next set of inputs. 

Call BASE to determine all system parameters 
at time zero, to print a base output table 
if indicated by KBASE=5, and to abort simu- 
lation if KERROR value returned by BASE in- 
dicates that certain inputs do not support 
steady-state. Also abort if no. of days 
to be simulated = 0. 

Initialize integer variables : integration 
time interval, day counter, minutes per 
cycle (day), limit on number of days, and 
printing time increment. 
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Table 1 - continued 



Program Line 
Numbers 

2330 


Description 


trc_(T0 + 460) (386.7) (760) 
(530) (VOLUME)” (60) (44 . 01) 


2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2470 

2480 

2490 

2500 

2510 


MAXDEX=0 

DO 110 MN=1,NDEX 
IN= INDEX (MN) 

HDG (MN) =HEAD ( IN) 

110 IF (IN > MAXDEX)MAXDEX=IN_ 
IF (1 t MAXDEX t 52)KBASE=1 
IF (53 t MAXDEX < 78)KBASE=2 
IF (79 < MAXDEX < 129)KBASE=3 
IF (130 5 MAXDEX t 150)KBASE=4 
QPRINT= .TRUE. 

NT=0 

D0725 MN=1,NDEX 
725 AVG(MN)=0 
NDAY=NDAY + 1 



2520 


PCOI=PCO 


Comments 


Calculate proportionality constant between 
net C0 2 removal (Lb/Hr) and cabin pCCL 
change rate (mm Hg/Min) . " 

Determine the names (HDG) of the variables 
to be printed out in the table versus time, 
and find largest subscript (MAXDEX) . 


Calculate the parameter XBASE which indicates 
to the BASE subroutine which of its output 
variables must be calculated and which sec- 
tions may be omitted for faster execution. 


A line will be printed at time zero. 


Clear the variable containing the average 
of the parameters, AVG . 


Increment the day counter. 

Store the cabin pC0 2 for the beginning of 
the cycle. 
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Table l - continued 


Symbol 



Program Line 
Numbers 

2530 

2540 

2580 

2590-2620 

2630 

2640 

2650 

2700 

2710-2750 

2820 

2830 

2840 

2850-2870 



IGEN=1 

C02GEN=CGEN (1) 

IF (QFOUT) PRINT, NDAY 


PRINT CYCLIC TABLE HEADINGS 
WRITE, 0,0 

CALL BASE (KMODE , KBASE , 1 , KERROR) 
IF (KERROR 4 0) BRANCH 


IF (NOT QPRINT) BRANCH 

PRINT A LINE IN THE CYCLIC 
TABLE 

IF (NT < MINCYC) BRANCH 
DO 726 MN=1,NDEX 

726 AVG(MN)=AVG(MN). RI ^ 
PRINT AVERAGES 


Comments 


Initialize the CO_ generation rate step 
counter and the CO2 generation rate . 

If file output is being used, print the 
day counter on the terminal to indicate 
progress of the program to the operator. 


Print time at time zero. 

Call BASE to determine system parameters 
at time zero and to print any error messages. 

If the variable KERROR indicates that 
conditions will not support the steady- 
state, then BRANCH to get the next set of 
input data. 

Print a line in the cyclic table at the 
proper time. 


BRANCH if it is not the end of the day. 

Complete calculation of average system 
parameters . 
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Table 1 - continued 


Symbol 



Program Line 
Numbers 

2880 

2940 

2950 

2960 

2970 

3010 

3020 

3030 

3040-3050 

3100 

3110 

3120 

3130 

3140 



IF (NDAY=NDAYS ORl "^ |< 
0.0005) BRANCH 1 1 


NT=NT + NDT 

QPRINT=MQD (NT ,NPRINT) .EQ.O 

IF (NT > TMAX (IGEN) ) IGEN=IGEN+T 
C02GEN = CGEN(IGEN) 

IF (NOT QPRINT) BRANCH 

NHRS ® NT/60 
NMIN=NT - NHRS (60) 

WRITE TIME _ 

XA=PCO ~ 

SL0PEA=U5 (C02GEN-CTRANS) 

SLOPE® SLOPEA 
PCN®PCO + SLOPE x DT 
YA=XA - PCN 


Comments 


Start a new cycle unless either steady- 
state has been reached or maximum number 
of cycles has been reached. 


Increment time. 

Determine whether a table line will be 
printed at this time. 

Update CO., generation rate. 


Print the time if a line of table will be 
printed at this time. 


Calculate pC0 2 at the new time. First 
assume that pC0 2 has not changed during 
the latest time increment. Calculate the 
rate of pC0 2 change at the beginning of the 
time increment (SLOPEA) , Calculate average 
rate of pCO ? change during the time interval 
(SLOPE) . Using the old pC0 2 and the average 
slope, recalculate the new pC0 2 . The error 
associated with the first trial is YA. 


Cife Systems, Jmc. 








C-9 


Table 1 - continued 


Symbol 



Program Line 
Numbers 


3290 


Description 


3150 

XB=PCN 

3160 

PC0=PCN 

3170 

CALL BASE (KMODE, 0,0, KERROR) 

3180 

IF (KERROR f 0) BRANCH 

3190 

SL0PEB=U5 x (C02GEN-CTRANS) 

3200 

SLOPE = 0.5 x (S LOPEA+SLOPEB) 

3210 

PCN=XA + SLOPE x DT 

3220 

YB = XB - PCN 

3230 

n „ rt YAxXB-YBxXA 
YA-YB 

3240 

KPRINT=0 

3250 

IF (QPRINT) KPRINT=1 


1 


CALL BASE ( KMODE , KBASE , KPRINT , 
KERROR) 


Comments 


Use the improved pC0 9 value for the second 
guess (XB) . Call BASE to find the CO,, re- 
moval rate based on the latest value of pCO,,. 
Calculate the rate of pCO,, change at the en& 
of the time increment and the average rate of 
pCCL, change during the time increment. Re- 
calculate pC0 ? at the end of the time interval 
from the pC0 2 “at the beginning of the interval 
and the rate of pC0 2 change. YB is the error 
associated with the second guess at cabin pC0 2 


The cabin pCO at the end of the time 
increment is found with precision by 
finding the zero of the function defined 
by two points with coordinates (XA,YA), and 
QtBjYB). Linear interpolation is used be- 
cause both points are already close to the 
root. 

Calculate KPRINT, the parameter to BASE 
which determines when error messages can 
be printed by BASE. Error messages will 
not be printed unless it is time to print 
a line in the cyclic table. 

Call BASE to calculate system parameters 
at the new cabin pC0 2 . 
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Table 1 - continued 



Program Line 

Numbers Description 


3300 

IF (KERROR j o) BRANCH 

3310-3330 


3360 

SL0PEC=U5 x (C02GEN-CTRANS) 

3370 

SLOPE * 0.S x (SL0PEA+SL0PEC) 

3380 

PCN=XA - SLOPE x DT 

3390 

YC= PCO - PCN 


Comments 

Update the average system parameters. 

Check for error in cabin pCO and BRANCH 
to print a line of data in tne cyclic table. 
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TABLE 2 BASE SUBROUTINE FLOW CHART 



Program Line 



Symbol 

Numbers 

Description 

Comments 



START 


3680 

CPA = 1.0765 ~~ 

Initialize 

Constant 

Btu/Hr/Scfm-F 

3680 

CPH = 1.0666 

Initialize 

Constant 

Btu/Hr/Scfm-F 

3690 

U1 = 51.7 

Initialize 

Constant 

mm Hg/Psi 

3690 

U2 = 386.7 

Initialize 

Constant 

Scfm/Lb-Mol/Ilr 

3690 

U3 = 3.419 

Initialize 

Constant 

Btu/Hr/Watt 

3690 

U4 = 28.32 _ 

Initialize 

Constant 1/Ft^ 

3700 

_5 ~ ' 

C782 = 2.25 x 10 




3700 

C562 = 1.303 x 10' 5 

Initialize 

constants for pressure drop 



equations 



3700 

C561 = 1.01 X 10 




3700 

C6132 = 8.611 x 10‘ 4 




3710 

C5132 = C562 + C6132 




3710 

C5131 = C561 1 




3710 

QA = CS132 - C782 __ 




3720 

HRDiVGT = 817.9 Lb 

Initialize 

weight and power constants 

3720 

PWRPC =136 WATTS 




3720 

PWREC =45 WATTS 




3720 

PWRDAU = 100 WATTS 



-continued- 
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Table 2 - continued 


Program Line 
Symbol Numbers 



3730 

3740 

3750 

3790 

3800 

3810-3820 

3830 

3840 

3890 

3900 

3910-3920 

3970 

3980 

3990 

4000 


Description 
KERROR = 0 

IF (KMODE + KBASE=0) BRANCH 

IF (KM0DE=1)CALL BMODE 

V9MSL = (1.3) (N) (I) (7.058 x 
10 H 

IF V9MSL < V9SL THEN BRANCH 

WRITE "INSUFFICIENT H " V9MSL, 
"IS REQUIRED" 1 

KERROR = 1 

RETURN _ 

IF Vl<70 THEN BRANCH 

VI = 70 

WRITE "AIRFLOW CHANGE TO 70 
SCFM" 

V7M1 * V7 - VI ~~ 

QB = C5131 + 2 (V7M1) 2 

QC = C782 (V7Mllf 

V5MIN » -QB WQB 2 ♦ 4(QA) (QC) 
2(QA) 


Comments 

Initialize error indicator 

Calc, required H 0 flow 

Check for sufficient H 2 Flow 

Write error message and required 
H ? flow 

Return in error condition 

Check that VI is less than the 
process air blower capacity 

Set VI to maximum blower capacity 

Print error message 

Calculate bypass cooling air flow 
with cooling blowers off; i.e., 
calculate minimum cooling air flow 
rate 
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Table 2' - continued 


Symbol 



Program Line 


Numbers 

Description 

Comments 

4040 

DW1 = DIV7 


4050 

T2 = DW1 + DELT1 

Calculate cell temperature 

4060 

T2INP = T2 

Store input T2 

4070 

E * 0.729 - 0.22 lnl + 
0.0081 + 0.005 (T2-78) 

Calculate cell voltage 

4080 

HEATLD = (1.25-E) (N) (I) (U3) 

Calculate modules' heatload 

4090 

T1 = T7 


4100 

T3 = T9 


4110 

V3 = V9SL/U4 


4120 

T5 = T1 


4130 

DHA = VI (CPA) (T2 - Tl) 

Calculate heat removed by 
cathode air flow 

4140 

DHH = V3 (CPH) (T2-T3) 

Calculate heat removed by 

4150 

DHC = HEATLD - DHA - DHC 

Calculate heat removed by 
cooling air 

4190 

If DHC > 0 THEN BRANCH 

Check to see if cooling air 
is required 

4240 

V5 = VSMIN 

Set cooling air flow to minimum 

4250 

VSA = (N) (VSMIN) /96 

Calculate flow thru active cells 
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Table 2 - continued 



Program Line 
Numbers 

4260 

4270 

4280 

4290 

4300-4320 

4390 

4440 

4450 

4460 

4470 

4480 

4490 

4500-4520 



DROP = T2INP-T2 

IF (DROP < 3) BRANCH 

IF (KPRINT = 0) BRANCH 

WRITE "V5MIN, " V5MIN "COOLING 
BLOWERS OFF," "MODULE TEMPER- 
ATURE FALLS," DROP, "NEW T2," 
T2 

IF T2-T5 > (? . - 376)DHC then 
BRANCH N 

V5 = 440 

V5A = V5(N)/96 

Call TDRIFT 

RISE = T2-T2INP 

IF (RISE < 3) BRANCH 

IF (KPRINT = 0) BRANCH 

WRITE "COOLING BLOWERS ON 
FULL," "MODULE TEMPERATURE 
RISES," RISE, "NEW T2," T2 


Comments 


Calculate T2 for subcooled 
condition 

Calculate temperature, T2, drop 

Print out new conditions 

Check if there is sufficient AT 
to conduct heat up fins 

Set V5 to maximum blower capacity 

Calculate flow thru active cells 

Calculate T2 

Call rise in module temperature 
Print out new conditions 
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Table 2 - continued 


Program Line 
Symbol Numbers 



4580 ' 

4590 

4600 

4610 

4620 

4660 

4670 

4720 

4760 

4770 

4780-4810 

4880 

4890 

4900 

4910 

4920 


Comment s 

Calculate minimum and maximum cooling 
air flow to set range for iterative 
subroutine '’ROOT" 

Calculate cooling air flow past active cells 
Calculate total cooling air flow 

Check for subcooling 
Check for heatup 
Calculate plenum bypass flow 
Check for sufficient plenum bypass 

Print error message 


Calculate module cavity pressure drop 
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Table 2 - continued 



Program Line 
Numbers 

4930 

4930 

4940 

4950 

4960 

4970 

4980 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 


Description 


IF V3SL S 22 THEN BRANCH 

DP34 - C0R34 (8.3183 . 
0.4187 (V3SL-21. 5801j ' j 

P3 = P4 + DP 34 

P3PSA = P3/U1 

COR93 . ( i|j£ 0 - 8 

DP93 = (C0R93) (10.64) (V3SL) 


IF V3SL <6.2 THEN BRANCH 


DP93 = 
195.25 


3 = COR93 £35.64 V3SL - 
. 25 + e v ■ 75-0 . 6537V3SL) } 


P9 = P3 + DP93 


P9PSA = P9/U1 

DP78 = 2.25 x 10" 5 (V10) 2 

P8 = P8PSA(U1) 

P7 = P8 + DP78 

P7PSA = P7/U1 

DP12 = 0.001903(V1) 2 + 
0.04877 (VI) 

PI = P7 
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Comments 

Calculate cathode air out pressure 
Calculate current density 
Calculate actual humidity AT 
Calculate cathode inlet pCC^ 

Calculate TI 

Calculate 0^ consumed 
Calculate CO^ transferred 

Calculate H 9 consumed 
Calculate water produced 

Calculate anode gas stream parameters 


Ofc Systems, Jhc. 






C-18 


Table 2 
Symbol 


11 J 



X 

X 

I 


- continued 


Program Line 


Numbers 

Description 

5260 

DW1 = DW7 

5270 

PW1 = PHTO (DW1) 

5280 

PW1 

VW1 = VI ipi- 

5290 

VW3 = V3-VH3 

5300 

V * PR0D - WPR0D tonrso 

5310 

VW2 = VW1 + VW3 - VW4 

5320 

POO = P00PSA/U1 “1 

5330 

P07 = POO [P7/P0) 

5340 

P01 = P07 

5350 

PN1 = Pl-POl-PWl-PCl 

5360 

VN1 = VI (PN1/P1) 

5370 

VOl = VI (POl/Pl) 

5380 

VC1 = VI (PC1/P1) _ 

5390 

VN2 = VN1 ~ 

5400 

V02 = VOl - OCON (U2/32 x 60) 

5410 

VC2 * VC1 - VC4 


Comments 


Calculate cathode air water balance 
parameters 


Calculate cathode air inlet stream 
parameters 


Calculate cathode air outlet stream 
parameters 
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Table 2 - continued 


Symbol 


Program Line 
Numbers 

5420 

5430 

5440 

5500 


®- 




7 


5510 

5640-5650 

5520 

5530 

5670-5680 

5540 

5550 

5560 


L 


5570-5580 


5590-5610 


Description 

V2 = V02 + VN2 + VW2 + VC 2 
VW2 

PW2 = — ■ P2 

DW2 = DEWT (PW2) 

IF T1-DW1 = 11.25 ± 1.75 AND 
T2-DW2 = 11.25 ± 1.75 THEN 
BRANCH 

IF T1-DW1 > 4 THEN BRANCH 

WRITE "INLET AIR HUMIDITY 
0UT-0F -RANGE" 

IF Tl-DVV’l < 14 THEN BRANCH 

IF T2-DW2 > 7 THEN BRANCH 


Comments 


l 


I 

i 

i 

! Perform moisture balance checks 


WRITE "OUTLET AIR HUMIDITY 
OUT-OF -RANGE" 

IF T2-DW2 < 19 THEN BRANCH 

DPTDAV = (T1-DW1+T2-DW2) 

IF DPTDAV = 11+1.5 AND EITHER 
T2-DW2 > 13 OR DPTDAV > 0 THEN 
BRANCH 

WRITE "AVE DEW PT DEPRESSION OUT 
OF-RANGE 

WRITE "ELECTROLYTE MOISTURE 
BALANCE NOT MAINTAINED" 
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03-D 



Comments 


Check NFLAG for program abort 


Calculate preferred AT 


Complete definition of process air inlet 
stream 


Complete cathode air inlet stream 
definition 
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Table 2 - continued 


Symbol 


I 


I 



j. 


? 


Program Line 
Numbers 

S870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 

6010 

6020 

6030 


Description 


FW1 = VW1 


18.01 x 60 
U2 


RH1 - RH7 
PH3 = P3 - 
FH3 = VH3 


PW3 

2.016 x 60 
U2 


EMOD « 16(E) 

POWER = (N) (I) (E) 

TE = TI/0.0275 
P2 

PC2 = VC2 —■ 

FC2 = FC1 - CTRANS 

r»T*fo _ ,„.,n 1 8-01 X 60 

U2 

m. 

PHT0CT2) 


RH2 = 100 
T4 = T2 


Comments 

Complete cathode air inlet def. 
Complete definition of inlet 

Calculate remaining module parameters 


Complete definition of cathode air outlet 


V9 = V3 


DW4 = 0.77 


DW1 + DW2 


+ 0.23T2 


PW4 = PHT0(DW4) 

VW4 - P4 -rm (VH4 + VC4) 
V4 = VH4 + VC4 + VW4 


Refined dew point correlation 


Complete definition of anode gas outlet 
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Table 2 - continued 



Program Line 
Numbers 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 



CHWRTO = FC4/FH4 
HCVRTO = VHR/VC4 
P5 = P7 

DP56 = (V5) 2 C562 + V5 (CSOl) 

P6 = P5-DP56 

_ (V5A) T6A + (V5-V5A)T5 
V5 

IF VI < 62 THEN PWRCTB = 2.8V 
153.8 


IF 62 < VI < 65 THEN PWRCTB = 
40V1 - 2150 


IF 65 < VI < 70 THEN PWRCTB = 
-34V+ + 2660 


Comments 


Calculate cooling air pressure drop 
Calculate cooling air outlet pressure 
Calculate cooling air out temperature 

Calculate cathode air blower power 
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Table 2 - continued 


Program Line 
Symbol Numbers 




6200 

6210 

6220 

6240-6250 

6260 

6270 

6280 

6290 

6300 

6310 

6330 

6340 

6350 

6360 

6370 

6380 


Til - t2 + PWRCTB(U3) 
VI * CPA 


Vll = V2 


Pll = P8 


IF V5-V5MIN < 0 . 001 (V5MIN) THEN 
PWRCLB = 0,‘ DP1213=C12132(V5) 2 
AND BRANCH 


DP1213 = C12132 (V5MIN) ' 
TR ={ TtS9 + 0 - 05 ^/ 1 - 3 


TR = TR 


Co;i28 * 0.102(KZ| 9 » 


PWH = 410 - 0.00396 (V5-368) 

PWL = 410 - 0.00178 (V5 - 306) 2 
PWRCLB = TR (PWH) + (1-TR) (PWL)_ 

P12 = P8 + DP1213 

^ , PWRCTB (U3) 

T12 s T6 + — VSTCPA) 

T13 = T12 


V12 = V5 


P13 = P8 


V13 = V5 


Comments 


Define stream after cathode blower 


Check if cooling blower is off 


Calculate cooling blower power 


Define cooling blower exit stream 


Cife Systems, Jhc, 
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Table 2 - continued 



Program Line 
Numbers 



6390 

6400 

6410 

6420 

6430 

6440 

6450 

6460 

6470 

6480 

6490 

6500 

6510 



Description 


V8 = V10 + V2 + V5 


VW8 = VW7 + VW2 - VW1 


VC8 - VC7 - VC4 

PCS - P8 

VN8 = VN7 

PN8 » 2J}| PS 

V08 = VO 7 - Js(VH3 - VH4) 

PW8 = P8 

DW8 = DEWT (PW8) 

TO _ Tll(Vll) + T13CV13) 

V8 + 

T7 (V10) + (POWER plj-) 

V8 


RH8 = 


100 x PW8 
PHTO (T8) 


IF (KBASE = 3) RETURN 

_ V7(T7 + 460) 760 

P7 530 

AVI = VI CAV7/V7) 

AV2 = HCr^ieo! x 1<434 


6530 


Comments 
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Table 2 - continued 


Symbol 



▼ 


Program Line 
Numbers 

6540 

6550 

6560 

6570 

6580 

6590 

6600 

6610 

6620 

6630 

6640 

6650 

6690 

6700 

6710 

6720 

6730 


Description 


Avn = mirn^460i (1>434) 
AV9 = V9 m _p0 i (1>434) 


AV3 = V3 CT3 * 460) 


AV4 = 


V4(T4 + 460) 


(1.434) 

(1.434) 


AV5 = V5 AV7/V7 

AV6 , V6CT6^ -4 60) - (1>434) 

V6A = V5A 

AV6A = V6A(T6A + 460) (1>434) 
AVI 2 = V12(T12 , . 460J_ (1>434) 

AVI 3 = V13 ^ + 46 °^ (1.434) 

AV10EX = V1Qt: pg * 46 ° 3 (1.434) 
AV8 ■ V8(T8 p + 460) (1 ^ 


Comments 


Calculate actual stream flow rates 


PWRT0T = PWRPC + PWREC + 

PWRCLB + PWRCTB + PWRDAU 

HTT0T = HEATLD + U3(PWRTOT + 

POWER) 

PWRWGT = PWPEN (PWRTOT) Calculate equivalent weight penalty 

HTWGT = HTPEN (HTT0T) 

H20WGT = H20PEN (WPROD) 
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Table 2 - continued 

Program Line 
Symbol Numbers 

6740 

6750 

6760 

6770-7510 
^ 7520 



Description 

OXWGT = OXPEN(OCON) 

EQWGT = PWRWGT + HTWGT + H.,OWGT 
+ OXWGT + HRDWG T 

IF (XBASE = 4) RETURN 

WRITE OUT ALL OUTPUTS 

RETURN 


Comments 


JCife Systems. Jhc. 
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Symbol 

czz 

[ 

r~~ 


1 


TABLE 3 WATER VAPOR PRESSURE FUNCTION 


Program Line 
Numbers 

Description 

7550 

FUNCTION PHTO(TF) 

7560-7570 


7580 

TC- (TF-32) 1.8 

7590 

X = 374.11 - TC 

7600 

, rr , X A+BX+CX 3 

PHT0=10 l TC+F 1+DX 

7610 

RETURN 


Comments 

The input parameter is the Fahrenheit 
dew point temperature. The output para- 
meter is pH^O, in millimeters of mercury. 

Initialize constants A-G. 

Calculate Centigrade dew point temperature. 

Calculate the temperature span from the dew 
point to the critical temperature. 

Calculate water vapor pressure 


Cife Systems, Jhc. 
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Symbol 

C~D 



) 


Program Line 
Numbers 

7640 

7650 

7660 

7670 

7680 

4890 


TABLE 4 DEW POINT TEMPERATURE FUNCTION 


Description 
FUNCTION DEWT(P) 


EXTERNAL ROOT, PHTO 
X=ALOG(P) 


TA=-2 . 4 + 20.25X + 1.522X 2 
TB=TA +0.1 


Comments 

The input parameter P is the water vapor 
pressure in millimeters of mercury. The 
output parameter DEWT is the Fahrenheit 
dew point temperature 

Functions ROOT and PHTO are used by 
function DEWT 

Calculate two trial values for the dew 
point temperature 


DEWT=ROOT(TA,TB,PHTO,P, 0.005, Function ROOT will call function PHTO start- 
0.005, 5) ing with dew points equal to TA and TB until 

the water vapor pressure is equal to P with 
temperature and vapor pressure tolerances of 
point .005 but not exceeding five trials. 


C 


7700 


RETURN 
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TABLE 5 TRANSFER INDEX FUNCTION 


Symbol 


Program Line 
Numbers 


Description 


Comments 




T 



7730 

FUNCTION TIC0R(PC, AF, CD, DEL) 

Input parameters are C0 7 partial pressure 
in millimeters of mercury, cathode air flow 
in Cfm/cell, current density in Amp/Ft? , 
and module temperature - inlet cathode 
air dew point temperature. The output 
parameter is TICOR in Lb C0 2 /Lb 0 2 . 

7740-7810 


Initialize the correlation parameters in 
array S. 

7820 

7830 

P=AMIN1 (PC, 10) 

PA=PC ("_) (l*0.84P)-°- 84P 

pC0 ? should not exceed 10. 

PA is the effective inlet pC0 2 corrected for 
nonbaseline cathode air flow. 

7840 

J.® . 1 
J 5 1 

Calculate the J index which corresponds to 
current density. 

7850 

IF (J < 1)J=1 
c 

For current densities less than 10 ASF, extra- 
polate from 15 and 10 ASF. 

7860 

TI1= l S . . PA X 
i=l 

Calculate TI at the current density just below 
the actual current density. 

7870 

If (J < 7) BRANCH 

Current density should not exceed 40 ASF, 

7880 

TICOR * Til _ 


7900 

J = J + 1 _ 

tl 1 

[ Calculate TI at the current density just above 

the actual current density 

7910 

7920 

D 

TI2 = Z S..PA 1 
i=l 13 

AII=J "1 

Interpolate between the two current densities. 


V 


-continued- 
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Table 5 


continued 


\ 


Symbol 





Program Line 
Numbers 

7930 

7940 

7950 

7960 


Description Comments 

CD 

TERP * ^ - All 

TICOR=TI2xTERP+TI 1 (1-TERP) __ 

TICOR -T fCOR ( 1 +0 . 03536 (DEL- 18 . 33) )Correct TI for moisture conditions. 
RETURN 
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TABLE 6 ROOT FUNCTION 


Program Line 
Symbol Numbers 


Description 


Comments 



7990 



8000-8010 

8020 

8030 

8040 

8050 

8060 

8070 

8080 

8090-8100 

8110-8130 

8140 


FUNCTION ROOT (X1,X2 , YFCN , W,XTOL, Input parameters are the first and second 
YTOL,K) trial root values, the function to be 

called which returns the function of X, the 
value of the function at the desired root, 

X tolerance, Y tolerance, and maximum trials. 
The output value, ROOT, is the value of X 
when the function equals W. 

Initialize common and external statements. 


XA=X1 

XB=X2 


FA=YCFN(XA) - W 
FB=YCFN(XB)-W 


BEGIN LOOP 

FA-XB-FB-XA 


XN= 


FA-FB 


Isolate XI and X2. 




Extrapolate from the previous two 
trial values. 


FN=YFCN (XN) -W 


Calculate the error at the next X value. 


IF ( (fN i < YTOL and |XN-XB| < XTOL) BRANCH when the X and Y values are within 
BRANCH tolerance. 


IF (Kth TIME THRU LOOP) DUMP 
VARIABLES 6 , PRINT MESSAGE 
"NONCONVERGENCE IN LOOP" 


If the root has not been found within K trials, 
print a message. 


XA=XB 


Drop the oldest trial value and add the new 
trial value. 


-continued- 
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Table 6 - continued 


Symbol 



Program Line 
Numbers 

Descrip 

tion 

Comments 

8150 

XB=XN 



8160 

FA=FB 



8170 

FB=FN 




8180 

IF (<Kth 

TIME THRU LOOP) BRANCH 


5260 

ROOT-XN 


The root of the function returned is the 
latest trial value. 

8190 

RETURN 
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TABLE 7 MODULE TEMPERATURE SUBROUTINE 


Program Line 
Symbol Numbers 


Description 


Comments 






n 






\ 


v. 


A 


8220 

SUBROUTINE TDRIFT 

Subroutine TDRIFT calculates the module 
temperature when the cooling air flow rate 
is specified. All inputs are through com- 
mon storage. All outputs except P2 are 
also through common storage. 

8230-8280 


Initialize type, common, and external state- 
ments . 

8290 

ENTHPR=VI ■ CPA*T1+V3*CPH*T3 

Calculate enthalpy entering the modules in 
the cathode air and inlet hydrogen streams. 

8300 

ENTHPR+ . 99 • HEATLD 
V1 . CPA+ V3.CPH 

Calculate maximum possible module tempera- 
ture. This is the temperature the module 
would rise to with no cooling air. 

8310 

EHTHPR+ V5 A * CP A -T 5 +HE ATLD 
1 l LUW- v1 . CP a+v3.CPA+V5A -CPA 

Calculate the minimum module temperature which 
would occur with no heat transfer resistance. 

8320 

8330 

T2=T2HIGH 
DUMMY=ERT (V5A/N) . 

Call subroutine ERT to determine values of 
the heat transfer coefficient and the cooling 
fin efficiency, neither of which depends upon 
module temperature but only upon cooling air 
flow rate which is constant when subroutine 
TDRIFT is called. 

8340 

T2=R00T (T2HIGH , T2 LOW , ERT 1 , 0 , 

Start with trial values T2HIGH and T2LOW and 
use function ERT1 to find the module temper- 
ature which yields a heat balance for the 
specified cooling air flow rate. 

8350 

RETURN 
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8510 


IF (T6A < T) BRANCH 


MODULE TEMPERATURE 


Comments 

The input parameter is the module tempera- 
ture. The output parameter, ERT1, is the 
difference between the available module 
cooling air temperature drop and the re- 
quired module cooling air temperature drop. 

Initialize type, common statements. 

Calculate module voltage and heat load at the 
given temperature. 


Calculate the enthalphy change for the 
cathode air process hydrogen and cooling 
air flow, respectively, at the given module 
temperature . 


Calculate the outlet cooling air temperature 
from the inlet cooling air temperature and 
the enthalpy increase. 

The required module cooling air temperature 
difference depends upon the cooling air en- 
thalpy change x the resistance in the fin 
roots + the gas film resistance. 

If the cooling air temperature at the exit is 
less than the module temperature, then the 
log mean temperature difference can be cal- 
culated. 


-continued- 
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Table 8 


continued 




8530 

8540 

8550 

8560 


RETURN 


DTAVA = 


T6A-T5 

T-T5 

in T-T6A 


ERT1 = DTAVA- DTREQ 
RETURN 


Comments 

If it is not, then assume that the available 
temperature difference is zero and the error 
is equal to the required temperature dif- 
ference. 


The available temperature drop is the log 
mean of the module cooling air temperature 
difference at the inlet and the outlet of 
the cooling air passages. 
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TABLE .9 HEAT BALANCE FUNCTION WITH VARIABLE COOLING AIR FLOW RATE 



Program Line 
Numbers 

8590 


8600-8640 

8650 

8660 

8670 

8680 

8690 

8700 

8710 

8720 


Description Comments 

FUNCTION ERT(V) The input parameter is the cooling air flow 

rate, Cfm/cell. The output parameter ERT 
is the difference between the available and 
required module-cooling air temperature dif- 
ferences. Inputs taken from common storage 
include the inlet cooling air and cathode 
air temperature, the cooling air heat load, 
the cooling air specific heat, the number of 
active cells, and the module temperature. 
Outputs through common storage include the 
heat transfer coefficient, the fin efficiency, 
the outlet cooling air temperature, the 
available temperature difference, and the re- 
quired temperature difference. 


IF (V < 1)HC=1. 97V 0 ' 3333 

IF (1 < V < 2J9883}HC=1. 21 + 

0.34V + 0.42V 2 

If (2.9883 < V < 4)HC=2V 
IF (4 < V)HC=2. 639016V' 8 
ETA=1 


IF (0.32194 < V < 24. 72)ETA= 
1.0644 - 0.1135V°' b 

IF (24.72 * V)ETA=2.486V' 8 



Calculate the heat transfer coefficient. 


Calculate the fin efficiency. 


-continued- 
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Table 9 - continued 


Symbol 



Program Line 


Numbers 

Description 

Comments 

8730 

DTREQ-Sjp {0.376 . 

Calculate the required temperature dif- 
ference from the cooling air heat load, 
resistance in the fins, and resistance in 
the stagnant air film. 

8740 

IF (T6A < T2) BRANCH 

Branch and calculate the log mean temperature 
difference only if the outlet cooling air 
temperature is less than the module temperature. 

8750 

ERT = -DTREQ 

There is no available temperature difference. 
The error ERT is minus the required temper- 
ature difference. 

8760 

RETURN 


8770 

DTAVA - T6A-T5 
T2-T5 
T2-T6A 

Log mean module cooling air temperature dif- 
ference. 

8780 

ERT=DTAVA-DTREQ 


8790 

RETURN 
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TABLE 10 RANGE TEST SUBROUTINE 


Program Line 
Symbol Numbers 


Description 


Comment s 



8820 


I 

L 




8830 

8840 

8840 

8850 

8860 

8870 


SUBROUTINE T ( VARNAM , VAR , BOT , 
TOP, I) 


COMMON TOUT 

IF (BOT < VAR < TOP) BRANCH 
RETURN 


Subroutine input parameters are the vari- 
able, value, the lower and upper limits, 
and the out-of-range counter. The sub- 
routine simply prints a message containing 
the first four parameters when the variable 
is out-of- range. 

The message is printed on output device IOUT. 

The subroutine ends immediately if the 
variable is in range. 


WRITE, VARNAM, VAR, BOT, TOP 
1 = 1+1 


RETURN 
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TABLE 11 MODE B CURRENT AND CATHODE AIR FLOW SUBROUTINE 



Program Line 



Symbol 

Numbers 

Description 

Comments 



8910 

8920-8940 

8950 

8960 

8970 

8980 

8990 

9000 

9010 

9020 

9030 

9040 

9050 


SUBROUTINE BMODE 


I = BK(1) 

IF (PCO < BK(2)) BRANCH 
I * BK(4) 

IF (PCO > BK(3) ) BRANCH 
I = BK(9) • PCO + BK(10) 

VI = BK(5) ~1 

IF (PCO < BK(6) ) BRANCH 
VI = BK (8) 

IF (PCO > BK(7)) BRANCH 
VI = BK(ll) • PCO + BK(12) 


Subroutine BMODE takes the cabin PCO 2 

and calculates the current and the cathode 

air flow based on BK, the Mode B parameters. 

Initialize type and common statements. 

Calculate current. 


Calculate cathode air flow. 


RETURN 
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TABLE 12 CYCLIC PROGRAM LISTING 


100JSAV 

HOC *** CYCLIC PROGRAM *** CS-6 MATH MODEL *** 

120C 

130$ TTY. 04 
140$NDM 

150 LOGICAL QFIN»QF0UT»QC02GT,QSUBb,QPRl NT 

160 REAL N, I, HEAD! 150 ) »CGEN< 200 ) ,HDG( 150 1 » AO! 150 ) »TAB( 150 ) ,AVG< 150 1 
170 INTEGER INDEX! 150 1 ,TMAX! 200 ) 

180 C OMM ON I OUT . CPA , CPU, N, V3, T5. T3 . T1 . BK! 12 ) ♦ 

1 90&POPS A » P 00 PS A . TO . V OLU ME » P8PS A » T? . V7 » 

2005DW7 .P4PSA. T9. V 9SL, DS9*PWPEN »HTPEN * H 20PEN » OXPEN » N FLAG * 

2105PCO ,1, Vl,H EATLD.DRC . DHA. DHH . DTREO, DTAVA »E. 

2205 HC . ETA . T2 , V5A » T6A , DELT1 . V9MSL . V7M1 » V5M I N . V 5 . 

230&DUM 1 5 ) , Y A, YB, Y C , SLOPEC ♦ C 02G EH ♦ 

2405 V 51 HP* V10 , C 0E34, DP34, P3. PSPS A . C0R93, DP93 ,P9* P9P bA ♦ 

2505DF7 8 . P7 ♦ P7 PS A , DPI 2 , PI , P 2 , C OilDEN , DEL T IE . PC 1 . T I . 

260-5 OC OK . C TRAN S . HC ON . WPttOD* VC4.PW9.Pb3* VH3. VH4, Pwl . 

2704VW1.VW3. VWPROD. VW2»POO»PO?»PN1 » VN1. V01. VC1 . 

2805V 02. VC2.V2. Ptf 2 . D\v2 » DDP1 . DDP2 » DPTDAV , DELT1P , T2P. 

2905VC? . Vu?» VO?. VN7 »RH? .EC1.FW1. PH3 , EH 3. EMOD. 

300&POWER. TE. PC2 . FC2.FU2 , RH2. DW4.Ptt4.VW4. V4 , 

31 05 V4SL . VC4bL . VH4SL » FC4. FH4 . E'tt4. F4» CHtfK‘i'0, HC VETO . DP56. 

3205P6 » T6 , PWRC TB , T 1 1 , DPI 2 1 3 » F WRCL B , P 1 2 , 112 , V8 , V IV8 , 

330&VC8.PC8, VH8 . PN8, V 08 . PUB* DUB , T8.RH8.AVl. 

3405AV2. AV3.AV4.AV5, A V6. AV6A.AV7. AV8. AV9* AV10EX. 

3505AV1 1 » A V 12 . A V 13. PWRTOT.HTTOl. PWRliGT. Hi'tt'G I . H20WGT ♦ OXWGT. ECiw GT 
360 EQUIVALENCE! A0( 1 ) . PCO ) 

37 0 DATA I OUT . NSTEPS . < TKAX I MN ) ».CGEN( MN ) . MN=1 ,211/1.21, 

3805405.. 3530, 420, .4118, 435, .4706, 450, .5295, . 465. .5687. 480, .7060, 

3905705. . 7452, 720.. 6079. 780.. 5295, 840..5687, 900,. 6667, 1020, .7452. 

40051 080. . 6667, 1140,. 5295, 1200,. 5687, 1290,. 6471, 1320,. 6079, 


41 051 365,. 5295 

1380,. 4706, 1395,. 4118, 1440, .3530/ 

420 DATA HEAD/ 





4305“ 

PCO”,” 

I”," 

VI"," 

HEATLD" , " 

DHC", 

4405" 

DHA", " 

DHH" »" 

DTREQ" , " 

DTAVA"," 

E", 

4505“ 

HC",” 

ETA”,” 

T2“,“ 

V5A" , “ 

T6A“ , 

4605" 

DELT1",“ 

V 9MSL" ," 

V7M1"»" 

V5MIN" , " 

V 5" , 

4705" 

DLIM1"," 

DUM2" ," 

DUM3" , " 

DUM4" « " 

DUK5", 

4805" 

YA" , " 

YB"»" 

YC"," 

SLOPEC", "C02GF.N", 

4905" 

V5INP"," 

V10"»" 

C0R34" »" 

DP34" , ” 

P3"» 

5005“ 

P3?bA” 

C0R93"," 

DP93" , " 

P9" ,“ 

P9PSA" » 

5105“ 

DP? 8"," 

P?" , " 

P7PbA“,“ 

DP12” , " 

PI", 

5205" 

P2" , " 

CORDEN",” 

DELT1E" , " 

PCI"," 

XT", 

5305" 

OC ON", "C TRANS"," 

HCON”, " 

WPROD" , " 

VC 4", 

5405" 

PW 9 " , ” 

PW3"»" 

M3" » ” 

VH4" 

PW1”, 

5505" 

Vvil", M 

VU3" , “ 

VWPROD" »” 

V\<2“." 

POO", 

5605“ 

P07",“ 

PN1”»" 

VN1”, “ 

V01“," 

VC1", 

5705" 

V 02" , " 

VC2“," 

V2“»“ 

PW2“ , " 

DW2”, 

5805" 

DDP1",“ 

DDP2" »“ 

DPTDAV" 

DELT1P"," 

T2P" » 

5905“ 

VC7 M ," 

VW7-," 

V 07" » " 

VH7-," 

RH7", 
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Table 12 _ continued 


60 0&" 

FCl". " 

FW1"." 

PH3"." 

FH3". " 

EMOD" 

6105c" 

POWER"." 

• TE“." 

PC2"." 

FC2"»" 

FN2" 

6205.*" 

RH2" f " 

DW4“»" 

PW4" . " 

V W 4" . " 

V4" 

6305:" 

V4SL". " 

VC4SL"»“ 

VH4SL"." 

FC4" » " 

FH4" 

6405:" 

FW 4" » " 

F4"*" 

CHWRTO" . "HC V RTO“ » " 

DP56" 

6505” 

P6"»" 

T6"." 

PWRCTB"." 

Tll"»“ 

DP1213" 

6005" 

PWRCLB"." 

P12“,‘‘ 

T12"«” 

V 8" . " 

VW8" 

6705:" 

VC8"»“ 

PC8"," 

VN8"»" 

PN8" »“ 

V 08" 

6805" 

PW 8" » " 

DW8"»" 

T8” . " 

RH8“." 

AVI" 

6905" 

AV2”.” 

AV3",“ 

A V4“ . " 

AV5". " 

AV6" 

7005" 

AV6A" »“ 

AV7".“ 

AV 8" . " 

AV9" » " 

AV10EX" 

7105" 

AV11“. “ 

AV12" 

AV 13".“ 

PtfRTOT" * " 

HTTOT" 

720 5" 

PNRv/G T" . " 

HTWGT". " 

H20NGT" » " 

OXW'GT". ” 

EQWGT" 


730C 

740C DETERMINE I/O DEVICES: 

750C 

760 PRINT » "FILE INPUT (T OR F)",t* 

770 READ.GFIN 

701) IN?«50 

790 IFt QFIN )INP=2 

800 IF! QFIN )CALL OFENF! 2. "MATHIS" ) 

810 PRINT»"FILE OUTPUT <T OR F)",t* 

820 READ.QFOUT 

830 IF! • NOT. QF OUT)! OUT-66 

340 GOT 06 

850 99 PRINT t" END OF INPUT DATA FILE" 

860 CALL EXIT 
87 OC 

880C IF OUTPUT IS TO FILE. OBTAIN FILE NAME: 

890C 

900 1IF( .HOT.QFOUT)GOT06 

910 IFt .NOT. QFIN JPRINT. "FILE FOR OUTPUT" » ♦* 

920 READ! INP»48»END=99 IFNAME 
930 48 FORMAT (14A6) 

940C 

950C IF THE FILE NAME IS "SAME". KEEP FILE OPEN FOR MORE OUTPUT. 
960C OTHERWISE ASSIGN THE NAME AND CLOSE THE FILE: 

97 OC 

980 IFt FRAME. NE. "SAME" )CALL Ct^OSEFt 1.FNAME.7) 

990C 

1000C READ AND WRITE PROBLEM IDENTIFIER: 

1010C 

1020 GWRITEt I OUT. 4) 

1030 4 FORMAT! /////) 

1040 IFt .NOT. QFIN JPRINT. “PROBLEM IDENTIFIER:” 

1050 READ! INP*48»END=99 )( HDG! J ) » J=1 » 14 ) 

1060 IFt QFIN ) WRITE! I OUT? 48 ) (HDG ( J ) . J=1 . 14 ) 

1070C 

1080C INPUT AND OUTPUT HEW C02 GENERATION TABLE IF DESIRED: 
1090C 
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Table 12 - continued 


1100 I FC .MOT.QFIN >PRINX*“NEW C02 GENERATION TABLE! T OR F>".»* 

1110 READ! INP.. END=99)QC02GT 

1120 IF! QC02GT >READ< INP. »END=99 INSTEPS. ( TMAXI MR ) »CGEN( MH».MN=1. ESTEPS ) 

1130 IF! QC02G1 1 WRITE! I OUT? 100 INSTEPS* l TMAXI MNWCGEN! MN ) .MH-1. HSTEPS » 

1140 100 FORMAT! r C02 GENERATION RATE TABLE:"/" NUMBER OF STEPS="»I3// 

1130&" ENDING C 02" /" TIME GENERATION"/" MINUTES LB/HR"/ 

1160&(F8.0»m.4) I 

1170C 

11S0C INPUT EOR BASE* MODE B» HO. OF DAIS* SIZES Of TIME INTERVALS 
1190C FOR INTEGRATION AND PRINTING: 

1200C 

1210 IF! .NOT. QFIN)PRINT*"INPUT DATA”. t* 

1220 READ! INP* »END=99 )P0PSA* PCO.POOPSA. TO* V0LUKE.P8PSA. T7* V7» DW7.P4PS A*T9» V9SL* Dn9» 
1230&N » I .DELT1 . V 1 » PVi PEN ♦ HTPEN . H20PEN ♦ OXPEN , RHODE. NFL AG » < BK ( MN I * MH=1 *8 1 » DA I S » DT » DPU NT 
1240C 

1250C DETERMINE WHETHER BASE OUTPUT IS TO BE PRINTED AND 

12G0C INPUT THE SUBSCRIPTS OF THE DESIRED CYCLIC TABLE OUTPUT ITEMS': 

1270C 

1280 IF( .HOT. GFIHJPiilHT." PRINT BASE OUTPUT!'! OR F)"»t* 

1290 READ! IMP. »END=99)QPRINT 

1300 KBASE=4 

1310 IF! QPRINT)K3ASE=5 

1320 If! .NOT.QFIN )PRINT CYCLIC OUTPUT SUBSCRIPTS! T OR 
1530 READ! INP*. END=99)QSUBS 

1340 IF! QSUBS I HEAD! INF* »EUD=99 JNDEX* (INDEX! MM1 ,MH«1.NDEXI 
1350 IF! QFOUT ) PRI NT » “ START PROBLEM" 

1360C 

13? OC CALC. SLOPES AND INTERCEPTS FOR MODE B CURRENT AND AIRFLOW CURVES: 

1330C 

1390 BX(9)=!BK(1 )-BK<4) ) /( BK! 2 )~BK( 3 ) > 

1400 BK(10)=BK(1 )-BK!9)*BK<2> 

1410 BK! 11 )=( BK! 5 )-BK! 8 ) ) /( BK! G 1 -BKI ?> ) 

1420 BK! 12 )=BK( 5 )-BK( 11 )*BK( 6 ) 

1430C 

1440C IF MODE B IS IN EFFECT. DETERMINE INITIAL VALUES Of I AND VI 
1450C BY CALLING SUBROUTINE “BMODE": 

1460C 

14?0 IF! RHODE. E0.11CALL BMODE 
1480C 

1490C INPUT DATA PLAYBACK: 

1500C 

1510 WRITE (I OUT 5230) 

1520 230F0RMAT!" »’tt****««**lHPOT DATA******'*** 4 *" ) 

1550 WRITE! I OUT; 101? ) 

1540 101? FORMAT! ” CABIN ATMOSPHERE:") 

1550 9-44 FORMAT! 5X.A6.G10. 4. 3< " ! ".A6.G10.4M 

1560 WRITE! IOUT»944)"POPSA“.POPSA. M PCO".PCO.*‘POOPSA"*FOOPSA."TO ".TO. "VOLUME" .VOLUME 
1570 WRITE! I OUT? 1032) 

1580 1032FORMAT!" PROCESS AIR OUTLET /INLET ) 

1590 WRITE! I OUT; 944 , "P8PSA"*P8PSA» B T? ",T?."V7 ". V7. "DW7" . DW7 
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1600 WRITE! I OUT* 1031 ) 

1610 1031F0KMAT!" 82 OUTLET /INLET: " ) 

1620 S HI TE ( I OUT » 944 ) “ P4PS A “ » P4P S A , "T9 “ » T9 , " V 9SL ** ♦ V9S L * " DK 9” ♦ Didr 9 
1630 a RITE ( I OUT 5 1020) 

1640 1020FORMAT! " MODULES:**) 

1650 WRITE! IOUT»944)“N **,N,"I "»I»"DELT1“»DELT1»“V1 “»Vl 

1660 WRITE! I OUT? 1021) 

1670 1 021 FORMAT! - PENALTY HEIGHT FACTORS:") 

1680 W RITE! I OUT? 944 ) "PWPEN" * PWPEN > "HTPEN" .HTPEN .“H20PEN" .H20PEN » 
1690&" OXPEN" » OXPEN 
1700 WRITE! I0UT51022) 

17 1 0 1022 FORMA T ( " C ONTROL : “ ) 

1720 WRITE! IOUT;944)"KMODE", KMODE. "NFL AG"»NFLAG 

1?30SV'IMIN",BK(1 >,"PCIMIir,BKl2),"FCIMAX",RK(3)»"IMAX“,BK< 4), 
1?40&“VMIN"»3K!5)."PCVMIN".BK(6),"PCVMAX".BK< 7 ) VMAX"* BK ( 8 ) 
1750&»“DAYS" .DAYS »"DT “ » DT * “ DPEI NT" » DPRI NT 
1760 WRITE! I OUT? 4) 

1770 WRITE! IOUT;220) 

1730 220 FORMAT! “ *******<h»**resOLTS***'****** { ‘**" ) 

1730C 

1800C CHECK INPUTS: 

1810C 
1820 IR=0 

1830 CALLT! "POPSA * .POPSA. 13.7.15.7, IR ) 

1840 CALLT! "PCO",PCO» .0001*10. ,IR) 

1850 CALLT! "POOPSA",POOPSA»2. *4* » IR ) 

1860 CALLT! “TO " .T0.44. ,80. , IK ) 

1870 CALLT! “VOLUME". VOLUME. 100. .100000. .IR) 

1880 CALLT! "P8PSA ", PSPS A .13 .7 .15. 7* IR) 

1890 CALLT! “T7 “ , T7 ,44. .80 . , IR I 

1900 CALLT! **V? ".V7.0..600..IR) 

1910 CALLT! “DW? ",DU7,41.,?0..IR) 

1920 CALLT! "P4PSA " .P4PSA. 14.8,21 .2, IR ) 

1930 CALLT! “T9 ".T9.65. .75..IR) 

1940 CALLT! "V9SL “♦ V9SL. 0. , 18. . IR) 

1950 CALLT! “DW9 “.DW9.10..75..IR) 

1960 CALLT! “N “,N»90 • .96. , IR ) 

1970 CALLT! "I “» I .2.44,9.76, IR) 

1980 CALLT! “DELT1 “.DELT1 » 10. ,25. , IR) 

1990 CALLT! “VI V1.5. ,76.8, IS) 

2000 CALLT! "PWPEN “.PWPEN.O. ,2* . IR) 

2010 CALLT! "HTPEN " .HTPEN.O* .2. , IR ) 

2020 CALLT! "H20PEN" .H20PEN, 0 . ,500. * IR ) 

2030 CALLT! "OXPEN ", OXPEN .0* .3000. » IR ) 

2040 FLAG=NFLAG 

2050 CALLT! "NFL AG "»FLAG»0.,1.,IR> 

2060 AMODE=KMODE 

2070 CALLS! “KM ODE ” , AM ODE » 0 • » 1 • ♦ IR ) 

2080 CALLTI“IMIN“,BK!1!»2.44,9.76,IR) 

2090 CALLT("PCIMIN“,BKf 2)». 0001.10. ,IR) 
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MOO CALLT( “PCIMAX“ »BK( 3 ) * . 0001, 10 • , IR ) 

71 1 0 C ALLT ( * I M A X" , BK ( 4 J ,2 . 44, 9 .76 , 1 R) 

r.i'L.<ii c A LLxl " v hi h " » BK ( 5 ) » 3. , 76.8, lit ) 

2130 CAI.LT ( "PCVHIR” » BK( 6 ) » .0001*10 . , IR ) 

2140 C .\T,L!r( "PC V V. AX" » BK ( 7 > » . 0001 ,10. .IP) 

7130 C A LLT < " t !':AX" » BK ( B ) » 5 . » 7t> . 6, IR ) 

216C C A II. ‘PI "DAYS" . DAYS , 0 . , 10 . , IK ) 

2170 CALLXCDT “ ,DT, 1. ,1b. . IH ) 

21^0 C ALLT( "DPRINf" , DPRINT ,1*. 100., IK) 

2190 I’e< IR.GT.OJGOTOI 
2200C 

221 OC P III HI' FULL BASE PR 00 It AM OUTPUT IF DESIRED: 

2220 C 

2230 CALL BASE! KMODE, XBASE, 1, KERR OR) 

2240 IF( TERROR. HE. 0 .OR. DAYS.EQ.O. KJO'I'Ol 
2250C 

226 OC INITIALIZE CONSTANTS: 

227 OC 

2290 NDT-DT 
2290 9DAY=0 

2300 KIHCYC-TMAXt MSTEPS ) 

2310 NDA YS=DAYS 
2320 HPRI NT=DPRINT 

2350 05= ( TO +460 » 1*386. 72*760. /( 530. *VOI.UME*60. *44. 01 ) 

2340 MAXJ)EX=0 

2350 DO 110 MN=1»NDEX 

2360 IN=INDEX(MN> 

2370 HDO ( MN )=fIEAD( IN ) 

2380 HO IFdN.CT. HAXDEX ) MAXDEX=IN 
2390 KBASE=1 

2400 IF( MAXDM.G-T.52 )KBASE=2 
2410 IF( MAXDEX.GT.78 )KBASE=3 
2420 I F ( M AX DE X »G T • 1 29 ) KB A S E=4 
248 OC 

2440C START A NEb CYCLE (DAY): 

245 OC 

2460 7800COHTINUE 
2470 OPR I N T= .TRUE* 

2480 NT=0 

2490 DO ?25 MN=1 ,NDEX 
2500 725AVG< MN1=0. 

2510 NDAY=NDAY+1 
2520 PCOI=PCO 
2530 IGEN=1 
2540 C02GEH=CGEN( 1 ) 

2550C 

256 OC PRINT CYCLIC TABLE HEADINGS: 

257 OC 

2580 I FI OF OUT IPRIHT.NDAY 

2590 WRITEl I OUT? 120 INDAY » ( HDG ( MN ) »MN=1»NDEX ) 
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2600 120FORMAT! ////• •<hmmmmhhh»***DAT"» I3i * *♦******♦**“//• TIME" /< ?< 5X»A6 ) ) ) 

2610 HITE< I OUT* 121 ) . 

2620 121 FORMAT! /" *****■»*#■»■****■»•»*■•>*********«**«"/) 

2630 WRITE! I0UT*135>0»0 

2640 CALL BASE! KMODE»KBASE»l» KERROR) 

2650 I F ( KERR OR . N E . 0 )G OT 01 
2660 C 

267 OC PRINT A LINE IN THE TABLE: 

2680C 

2690 7900C0NTINUE 
2700 IF! .NOT.QPRINTJGOT08000 
2710 DO 130 MN=1 »NDEX 
2720 I N= INDEX! MN ) 

2730 130 TAB! MN )=A0( IN ) 

2740 WRITE! I OUT? 140 K TAB! MN ) *MN=1 » NDEX ) 

2750 140FORMAT(7!G11.4) ) 

2760C 

2770C START A NEW CYCLE AT THE END OF THE CURRENT CYCLE 

2780C UNLESS EITHER STEADY STATE HAS BEEN REACHED 

2790C OR MAXIMUM NUMBER OF CYCLES HAS BEEN REACHED 
2800C 

2810 8000C0NTINUE 

2820 IF!NT»LT«MINCYC)GOT08100 

2830 DO 726MK=1 *NDEX 

2840 726AVG! MN )=AVG( MN )*DT/MINCYC 

2850 WRITE! I OUT 5 122) 

2860 122F0RMAT! ” AVERAGES:") 

2870 WRITE! I OUT? 140 )( AVG! MN 1 *MN=1 tNDEX ) 

2830 IF(NDAY.GE.NDAYS -OR- ABS( (PCO-PCOI )/PC0 ) *LE. .0005 (GOTOl 

2890 GOT 07800 

2900C 

291 OC INCREMENT TIME AND UPDATE C02 GENERATION RATE 

29200 

2930 81O0CONTINUE 
2940 NT=NT+NDT 

2950 QPRIHT=MOD(NT.NPRINT).EQ.O 
2960 IF! NT.GT.TMAX! IGEN )) IGEN=IGEN+1 
2970 C02GEN=CGEN( IGEN) 

2980C 

2990C WRITE THE TIME: 

3000C 

3010 IF! .NOT.QPRINT)GOT08200 
3020 NfffiS=NT/60 
3030 NM I N=NT~NHRS*60 
3040 WRITE! I0UT;i35)NHRS,NMIN 
3050 135F0RMAT! lX,I2t":"»I2) 

3060C 

3070C UPDATE CABIN C02 PARTIAL PRESSURE 
3080C 

3090 8200 CONTINUE 
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3100 XA«PC0 

3110 SL0PEA=U5*( C02GEN-C TRANS ) 

3120 SLOPE=SLOPEA 
3130 PCN=PCO+SLOPE*DT 
3140 YA=XA-PCN 
3150 XB=PCH 
3160 PC0=PCN 

3170 CALL BASE! KM0DE»0»0*KERR0R ) 

3180 IF(KERROR.NE.O)GOT01 
3190 SL0PEB-U5*( C 02GEN-CTRANS ) 

3200 SL0PE=.5*( SLOPEA+SLOPEB ) 

3210 PCN=XA+SL0PE*DT 
3220 YB=XB-PCH 

3230 PC0~< YA*XB-YB*XA)/( YA-YBI 

3240 EPRINT=0 

3250 IF( QPRINT )KPRINT=1 

3260C 

3270C CALL BASE TO CALC. SYSTEM PARAMETERS AT NEW CABIN PC02 
3280C 

3290 CALL BASE( KM ODE » XBASE »KPR I NT t KERR OR > 

3300 IF{ KERROR.NE.O JGOTOl 
3310 DO 728MN=1 »NDEX 
3320 IN=INDEX( MN ) 

3330 728A VG( MN )=AVG( MN )+AO( IN ) 

3340C CHECK ACCURACY OF INTEGRATION: 

3350C 

3360 SL0PEC=U5*( C02GEH-CTRANS ) 

3370 SL0PE=.5*f SLOPEA+SLOPEC ) 

3380 PCD— XA+SLOPE w DT 
3390 YC=PCO-PCN 

340 OC YC IS THE INACCURACY IN PCO 
3410 GOTC7900 
3420 END 
3430 C 

3440 SUBROUTINE BASE( KMODE.KBASEtKPRINf .KERROR ) 

345 OC 

3460C *** CS-6 MATH MODEL BASE PROGRAM *** 

347 OC 

3480 .REALM * I 

3490 C OMMOHI OUTS CPA , CPH , N * Y3. T5 , T3» T1 »BK( 12 ) » 

35002-POPSAt P OOPS Ai TO , VOLUME » P8PS A . T7 . V7 » 

3510&DS7 * P4PSA » T9» V9SL * DW9 , PivPEN » HTPEN , H 2 OPEN , OXPEN , NFL AG » 

352 02 PC 0. 1 ♦ VI * HE ATLD , DHC » DH A , DHH » DTREQ* DTAVA » E» 

3530&HC * ETA» T2 » V5A » T6A, DELT1 * V9MSL* V7M1 1 V5MIN* V5» 

35402DU IH 5 ) , Y A . YB » YC , SL OPEC * C 02G EN . 

35502V5INP»V10,COR34.DP34»P3tP3PSA.C0R93#DP93.P9tP9PSA» 
3560&DP78 1 P7 , P7PSA > DP12 * PI * P2 » C ORDBN » DELTlEt PC 1 . T 1 1 
3570&0C 0N» CTRANS »HCON» IrfPROD. VC4, PW9,PW3, VH3, VH4*PW1 » 

35302 VW 1 » V W3 » V WPR OD > ¥ tf 2 « P OO t P07 ♦ PN1 * VN1 • V01 » ?C 1 » 

35902Y 02 « V C2 1 ¥2 » PW 2 ♦ Di2 . DDP 1 » DDP2 » DPT DAY . DELT1 P ♦ T2P t 
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3600&V C7 , VW 7. V 07 , ¥ N7 . RH7 »FC1 * FW 1 . PH3 . 783* EMOD. 

3610&PCWER.TE>PC2,FC2.FW2.RH2,DW4.PW4»VW4> V4. 
362G&V4SL.VC4SL.VH4SL.FC4.FH4.FW4.F4.CHWRT0.HCVRT0.DP56, 

3630£P6 . T6 » PWRC TB » Til , DP1213 . PWRCLB t P12. T12» VQ . V W8 . 

3640&VC8.PC8. VN8.PN8.V08.PW8.DW8.T8.RH8.AVI. 

3650&AV2* AV3. AV4.AV5.AV6. AV6A. AV7 • AV8» A¥9» AV10EX. 
3660&Am,AVi2»AV13»PWRTOT.HTTOT,PWRWGT,HTWGT.H2OWGT»OXWGT,EQWGT 
36V0 EXTERNAL PHT0.DEWT.TIC0R.R00T.TDRIFT.ERT1 .ERT.BMODE 
3690 DATA CPA. C PH /l. 0765 *1.0666/ 

3690&. U1.U2.U3.U4/51 .7007 .386.7 .3* 419. 28.32/ 
3700&.C782.C562.C561.C12132/2.25E-5.1.303E-5. .0101.8.6118E-4/ 
3710&.C5132.C5131 .QA/8.742E-4. . 0101 .8.517E-4/ 

3720&* HRDWG T. PWRPC . PWREC . PWRDAU /817 * 9. 136. . 45 . , 1 00 . / 

3730 KERR0R=0 

3740 IF( KMODE+KBASE.EQ.O )GOTO 7700 
3750 IF( KMODE.EQ.l ICALL BMODE 
3760C 

377 OC CHECK FOR SUFFICIENT H2: 

3780C 

3790 V 9MSL=1 «3 tt N*I*7 .508E-3 
3800 IF( V9SL.&E. V9MSL )G0T01213 
3810 WRITE(I0UT;213)V9HSL 

3820 2,13 FGRMATt" INSUFFICIENT H2.",G10.4." SLPM IS REQUIRED") 

3830 KERR0R=1 
3840 RETURN 
3850 1213 CONTINUE 
3860C 

387 OC CHECK CATHODE AIR CAPACITY: 

3880C 

3890 IF( Vl .LE.70 )GOT 09001 
3900 Vl=70. 

3910 WRITE(IOUT;9000) 

3920 9000F0RMAT( “ VI HAS BEEN CHANGED TO 70 SCFM, BLOWER CAPACITY. 

3930 9001 CONTINUE 

3940C 

3950C CALC. COOLING AIR FLOW WITH COOLING BLOWERS OFF: 

3960C 

3970 V7M1=V?“V1 

3980 QB=C5131+2«*C782*V7M1 

3990 QC=C?82*V7M1**2 

4000 V5MIN=(-QB+SQRT(QB*QB+4.*GA*QC> >/(2.*QA) 

40 IOC 

4020C CALC. COOLING AIR HEAT LOAD. ETC. FOR INPUT MODULE TEMP: 
4030C 

4040 DWl=DW7 
4050 T2=DW 1+DELT1 
4060 T2INP=T2 

4070 E=.729-.22*AL0G< I >+.008*I+.005*( T2-78. ) 

4080 HEATLD~N*I*( 1.25-E)*U3 
4090 T1-T7 
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4100 T3=T9 
4110 V3=V9SL/U4 
4120 T5=T1 

4130 DHA=V1*-CPA*(T2-T1 ) 

4140 DHH=V3*CPH*t T2-T3 ) 

4150 DHC=HEATLD-DHA-DHH 
4160C 

4170C CHECK NEED FOR COOLING: 

4180C 

4100 IF! DHC.GT.O IG0T0898 
420 OC 

4210C CALC. HEW MODULE TEMP IF COOLING BLOWERS ARE OFF: 

4220C 

4230 888 CONTINUE 
4240 V5=V5MIN 
4250 V 5 A=N * V 5 M I N /96 • 

4260 CALL TDRIFT 

42?0 DR0P=T2INP-T2 

4280 IF!DR0P.LE.3. JG0T0766 

4290 IF! KPRINT.EQ.O )G0T0?66 

4300 WRITE! I OUT ,469 )DR0P»T2INP, T2 

4310 469 FORMAT! " COOLING BLOWERS ARE OFF."/" MODULE TEMPERATURE FALLS", 
4320&F6.2, "F BELOW THE DESIRED*'»F6.2»“F T0",F6.2,"F." ) 

4330 GOTO? 66 
4340C 

4350 C CHECK THAT MODULE TEMP IS HIGH ENOUGH TO TRANSFER HEAT 

4360 C AT LEAST TO COOLING FIN ROOTS: 

437 OC 

4380 898 CONTINUE 

4390 IF( T2-T5.GE. .376*DHC/N )G0TC765 
4400C 

441 OC CALC. NEW MODULE TEMP IF COOLING BLOWERS ARE ON FULL: 

4420C 

4430 886 CONTINUE 
4440 V 5=440. 

4450 V5A=V5*N/96. 

4460 CALL TDRIFT 

4470 RISE=T2-T2INP 

4480 IF! RISE.LE.3 )G 0TC766 

4490 IF! KPRINT.EQ.O 1GOT0766 

4500 WRITE! I0UT5479)RISE,T2INP,T2 

4510 479 FORMAT!" COOLING BLOWERS ARE ON FULL."/" MODULE TEMPERATURE RISES", 
4520&F6.2*“F ABOVE THE DESIRED", F6.2, "F T0",F6.2,"F." ) 

4530 GOTO? 66 
4540 C 

4550 C CALC. COOLING AIR FLOW FOR INPUT MODULE TEMPERATURE: 

4560C 

4570 765 CONTINUE 

4580 V A=1 . 01*DHC /! CPA*N*I T2-T5 1 ) 

4590 VB=2.*VA 
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4600 v5A=N*ROOTI\lA»\lB.EJlT.O.,.005».OOl»2O) 

4610 V6*96.n5A/H 

4620 V5INP=V5 
463 OC 

4640C ARE COOLING BLOWERS OUT OF RANC-E: 

465 OC 

4660 IF( V5.LT. V5MIN )G0T0988 
46/0 IF( V5.GT. 440. )G OT 0586 

4680C 

4G90C MODULE HEAT BALANCE IS MAINTAINED WITH COOLING BLOWERS IN RANGE: 
4700C 

4710 766 CONTINUE 
4720 V10=V?-V1*V5 
4730C 

4740 C CHECK PLENUM BYPASS FLO..: ' 

4750C 

4760 ,IF< V 1 0.GE* » 05* V? )G 0T0244 
4770 I F ( KpRI N T . EG . 0 VJ OT 0244 
4780 a ill i’EC I OUT 5 1242 ) 

4790 uaITEI I Oti T * 944 ) " V 1 0" * V 1 0 

4800 REFORMAT! h INSUFFICIENT ISLET PROCESS Alit TC ", 

481 07“ PREVENT BACKM1XING THROUGH PLENUM BYPASS.") 

4820 KEiiR0U=2 
4830 RETURN 
484 OC 

48500 CALC*. STREAM PARAMETERS. REQUIRED FOR MOISTURE BALANCE CHECKS: 
4860 C 

4870 244 CONTINUE 

4890 IF< KBASE.EQ.O )G0TO7107 

4890 C0B34=< 14. 1 /P4PS A )•»* .8 

4.900 P4=P4PS A*U 1 

4910 V3SL=V9SL 

4920 DP34=.3822»C0K34*V3SL 

4930 IP( V3SL.GT.22. )DP34=C0R34*< 8.3183+.4187*( V3SL-21 .5601 )**1 .75 ) 

4940 P3=P4+DP34 
4950 P3PSA-P3/U1 
4960 C0R93=(14.1/P3PSA)**.8 
4970 DP93=C OR 93*1 0 • 64* V 3S L 

4990 IF! V3SL •& I «6 »2 ) DP93=C 0R93* ( 35 • 1 4* V SsL - 1 95 • 25+BxP 1 7 . 75- . 6537'* V3SL ) ) 


4990 

P9=P3+DP93 



5000 

P9PSA=P9/U1 



5010 

DP78=C782*UO*y10 



5020 

P8=P0PSA*U1 



5030 

P7=P8+DP78 



5040 

P7PSA=P7/J1 ... 



5050 

DP12=V1*( .001903*V1+. 04877) 



5060 

P1=P7 



6070 

P2“P1~DP12 



5090 

71070URDEN=I/.244 



5090 

DELT1 E=T2— Dfcr 1 
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5100 7700 CONTINUE 

5110 PC1=PC0*P7PSA/P0PSA 

5120 TI=1'IC0R( PCI » VI /96« »CURDEN » DELT1E ) 

5130 OCON=6.5803E-4*N*I 
5140 CTRANS=TI*OCON 
5150 IF(KBASE.LE«1 1RETURN 
5160 HC0N=0C0N*2. 016/16. 

5170 W Pit OD= OC ON+HC ON 

5180 VC4=CTRANS*U2/( 44.01*60. ) 

5100 PV<9=PHT0( DW 9 ) 

5200 PW3=P3*PW9/P9 
5210 VH3=V3*< 1 • -PW3/P3 ) 

5220 VH4=VR3-HC0N*U2/< 2.016*60. ) 

5230C TRIAL VALUE OF H2+C02 OUTLET WATER VAPOR PRESSURE: 

5240 PW4=PHT0(T2-6. ) 

5250 VW4=PW4*( VC4+VH4 ) /( P4-PVJ4 ) 

5260 D'tfl=DW? 

5270 Pvil=PHTO(DV/l ) 

5280 VV/1=V1*PW1/P1 
5290 VW3=V3-VH3 

5300 VWPR0D=ft’PR0D*U2/( 18.01*60. ) 

5310 V ft 2 = V W 1 + V W 3 - V W 4+ V W P R OD 

5320 POO=POOPSA*U1 

5330 P07=P0C*P7PSA/P0PSA 

5340 P01=P07 

5350 PNl=Pl-P01-PVil-PCl 

5360 VN1=V1*PN1/F1 

5370 V01=V1*P01/P1 

5380 VC1=V1*PC1/P1 

5390 VN2=V Ml 

5400 V 02=V 01 - OC 0N*U2 /( 32 • *60 • ) 

5410 VC2=VC1-VC4 
5420 V2-V02+VN2+VW2+VC2 
5430 PVJ 2=VW2*P2 /V 2 
5440 DW2=DEWT( PW2 ) 

5450C 

5460 C CHECK MODULE MOISTURE BALANCE: 

547 OC 

5480 DDP1=T1-DW1 
5490 DDP2=T2-DW2 

5500 IF( ABS( DDP1-11.25 ) .LE. 1 .75 . AND*ABS( DDP2-11 .25 ) .LE. 1 .75 )GOT030 

5510 IFCDDP1.LT.4. JGOT01210 

5520 IF(DDP1.GT.14. IGOT01210 

5530 IF( DDP2.LT.7. JGOT01211 

5540 IFf DDP2.GT. 19. )G0T01211 

5550 DPTDAV=.5*( DDP1+DDP2 J 

5560 IF(ABS(DPTDAV-11. 1.LE.1.5 .AND. (DDP2.GE.13. .OR. DPIDA V.GE.10 . HGOT030 
5570 IF< KPRIHT *EQ.l )WRITE( IOUT',654) 

5580 654F0RMATC AVERAGE CATHODE AIR DEWPOINT DEPRESSION OUT OF RANGE.") 

5590 28 IFOCPRINT.EQ.l )WRITE( TOUT) 543) 
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5600 543F0RMA1‘(" ELECTROLYTE MOISTURE BALANCE IS NOT MAINTAINED.”) 

5610 IF(NFLAG.EQ.O JGOT030 
5620 KERR0R=3 
5630 RETURN 

5640 1210 IF( KPRIN'f.EQ.l )WitITE( I OUT 5 432 ) 

5650 432F0RMAT(“ INLET CATHODE AIR DEWPOINT DEPRESSION OUT OF RANGE.” ) 
•5660 GOT 028 

5670 1211 IF( KPRINT-EQ. 1 )WRITE( 1 0UT5321 1 

5680 321 FORMAT l ** OUTLET CATHODE AIR DEWPOINT DEPRESSION OUT OF RANGE.") 

5690 GOT 028 
57 0 0C 

57 IOC COMPLETE ALL STREAM DEFINITIONS: 

5720C 

5730 30 CONTINUE 

5740 IF< KBASE.EQ.2 HtETUEN 

5750 DSLT1P=22 . -T1+DW2 

5760 T2P=DW 1+DELT1 P 

5770 PW7=PW1 

5780 PN7=PN1 

5790 PC7=PC1 

5800 V C7 =PC7 * V 7 /P7 

5910 ¥W?=PW7*V7/P? 

5920 PC7=P01 
5830 vo7=po7*v?/p? 

5840 VN7=PN7*V7/P? 

5050 RH?=100.*PW7 /PHTO( T7 ) 

5RG0 FCl=VCl*44»0l a '60* /U2 

587 0 FW 1 = V W 1 * 1 8 . 0 1 »6 0 . AJ 2 

5880 RHl=RH7 

5890 PH3=P3-PW3 

5900 FH3=VH3*2.016#60./U2 

5910 EM0D=16.*E 

5920 ?0WER=N*I*E 

5930 TE=TI/.0275 

5940 PC2=VC2*?2/V2 

5950 FC2=FC1-C TRANS 

5960 FW2=VW2»18. 01*60. /U2 

5970 RH 2=1 0 0 • *PW 2 /PH T 0 ( T2 ) 

59S0 T4=T2 
5990 V9-V3 

6000 DW4=.77 <f { DW1+DW2 ) /2. + -23*T2 
6010 PW4=PHT0(D«4) 

6020 VW4=PIV4*{ VH4+VC4 ) /< F4-PIV4 ) ‘ 

6030 \z4=VH4+VC4+VW4 

6040 V4SL=V4*U4 

6050 VC4SL=VC4*U4 

6060 VH4SL=¥H4*U4 

6070 FC4=CTRANS 

6080 FH4=VH4*2. 016*60. /U2 

6090 Fiv’4=VW4*18. 01*60. /U2 
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6100 F4=FC4+FH4+Ft#4 

6110 CHW EX' 0=FC4 /FH4 
6120 HCVRTO=VH4/VC4 
6130 P5=P? 

6140 DP56=V5*( V5*C562+C561 ) 

6150 P6=P5=DP56 

6160 T6=(V5A«T6A+< V5-V5A )*T5)/V5 
6170 IF( V1.LE.62. 1PWRCTB=2 .8*Y1+153.8 
6180 IF(V1.GT.62. .AMD. V1.LE.65. )PWECTB=40. *¥1-2150. 
6190 IF( V1.GT.65. >PWRCTB:=-34.*Vl+2660. 

6200 Tll=T2+PWRCTB*U3/< V1*CPA) 

6210 V11=V2 
6220 P11=P8 
6230 PWRCLB=0. 

6240 DP1213=C12132*Y5*V5 
6250 IF( V5.LT.1.01*V5MIB)G0T014 
6260 DP1213=C12132*Y5MIN*Y5MIN 
6270 TR=<DP7 8/1. 869+. 051/1.3 
6280 TR=TR**( .128+.102*3)P78/1.869) 

6290 PWH=410.-.00396*( ¥5-368 )**2 
6300 PWL=410.-.001?8®« ¥5-306. >**2 
6310 PWRCLB=TR*PWH+( l.-TR)*PWL 
6320 14C0NTIHUE 
6330 P12=P8+DP1213 
6340 T12=T6+PWRCLB*U3/(V5*CPA) 

6350 T13=T12 

6360 V12=VS 

6370 P13=P8 

6380 V13=V5 

6390 ¥8=V10+V2+Y5 

6400 V W 8=V W 7+ Y W 2- VW 1 

6410 VC8=YC?-YC4 

6420 PC8=VC8*P8/V8 

6430 V N8=V N7 

6440 PN8=VN8*P8/Y8 

6450 V08=Y07-.5*< YH3-YH4) 

6460 PW8=P8*YW8/Y8 
6470 DW8=DEWT( PW8I 

6480 T8=( T11*Y11+T13*Y13+T7*V10+POWER*U3/CPA)/Y8 
6490 RH8=100«*PW8/PHTO( T8) 

6500 I Ft KBASE «EQ .3 ) RETURN 
6510 AV?=V7*< T7+460. )*1.434/P7 
6520 AV1=Y1*AV?/V? 

6530 AV2=V2*{ T2+460. )*1»434/P2 
6540 AYll=Yll*(Tll+460. >*1.434/P11 
6550 AV9=Y9*( T9+460. )*1»434/P9 
6560 AY3=V3*t T3+460. )*1.434/P3 
6570 AV4=V4*(T4+460. )*1.434/P4 
6580 A¥5=V5*AY7/Y7 
6590 AV6=Y5*{ T6+460. 1*1 .434/P6 
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6600 Y6A-V5A 

6610 AV6A=V6A*(T5A+460. >*1.434/P6 
6620 AV12=V12*( T12+460. )*1 .434/P12 
6630 AV13-Y13** T13+460. )*1»434/P13 
6640 AV 10EX=V10#{ T7+460. )*1.434/P8 
6650 AVB=V8**T8+460. >*1.434/P8 
6660 C 

667 0C EQUIVALENT WEIGHT CALCULATIONS: 

6680C 

6690 PWUTOT=PWRPC+PWREC+PWRCLB+PtfRCTB+PWRDAU 
67 0 0 HiT0T=HEATLD+U3*( PWRTOT+POWER ) 

6710 PWRWGT=PWPEN*PWRTOT 
67 2 0 H TWG T=HTPEN*HTT01 l 
6730 H2O/GT=H20PEN*WPR0D 
67 40 OXWG T=OXPEN*OC ON 

6750 EQWGT=PWRWG T+HTWGT+H20WGT+0XW&T+HRDWGT 
6760 IF( KBASE.EQ. 4 (RETURN 
677 OC 
67B0C 

6790C MAJOR OUTPUT SATEMENTS 
6800C 

6810 WRITE* I0UT;456)DELT1P»T2P«DW1*DELT1P 

6820 456 FORMAT* ""PREFERRED VALUE OF DELT1 IS".F6.2. 

6830&" UNDER THESE CONDITIONS"/" SO THA1'".F6.2. 

6340&" = T2 =» DW1 + DELT1 =".F6.2," +",F6.2.".") 

6850C 

6860 944F0RMAT 1 5X.A6. G1 0.4.3* “ ! “.A6.G10.4)) 

6870C 

6880 WRITE* I OUT? 1020) 

6890 1020 FORMAT*" MODULES:") 

6900 WRITE* I OUT; 944 )“TI ”,TI,"TE "»TE."E ".E»“EMOD".EMOD. 

6910&"CTRANS“ .CTRANS . "OCON" . OCON. "HCON" »HCON»"WPROD" .WPROD. 

6920&"CURDEN“ , CURDEN. "HEATL D" . HEATLD. "POWER" , POWER 
6930 C 

6940 WRITE* IOUT;i014> 

.6950 1014FORMAT* " CATHODE AIR INLET:") 

6960 WRITE* I0UT5944)"P1 ".PI. "PCI". PCI. 

6970&"PW1"»PW1 »“FC1"»FC1» “FW1" »FW1»"VC1"» VC1»"VW1"» VW1» 

6980&" V 01 " ♦ V 01 . " V N1 " . VN1 » "T 1 " . T1 »“DW1"»DW1 »"RH1" .RH1 
6990 C 

7000 WRITE* IOUT.1024) 

7010 1024FORMAT* " CATHODE AIR OUTLET:") 

7020 WRITE* IOUT; 944 )"P2 “.P2.“DP12" .DP12,"PC2".PC2, 

7030<$;"PW2",PW2."V2 ",V2."VC2”. VC2."VW2".VW2. 

?040&"V02",V02."YN2"»VN2."FC2",FC2.”FW2".FW2."T2 ",T2,"DW2"»DW2."RH2"»RH2 
7050R."P11".P11."V11".V11.“T11".T11 

70600 

7070 WRITE* I OUT; 1010) 

7080 1O10FOHMAT* “ PROCESS AIR INLET:*) 

7090 WRITE* I OUT; 944 )"P7 ",P7,"PW7",PW7»"PN7"»P1J?»"VC7", VC7,"VVI7",?W7,"V07",V07, 
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?100&"YB?",YH7»"D¥7"tW7,-BH7"»BH7 

7110C 

7120 WRITE(I00T;i015) 

7130 1015F0RMAT!" PRXESS AIR OUTLET:") 

7140 WRITE! I0UT5944 )"P8 ",P8,"PC8",PC8,"V10",V10,"DP78",DP78, 

7150&-V8 ",V8,-VW8".YW8."VC8“,VC8,"V08"»Y08,"PW8".PW8.“T8 “» T8» 

?160&"DW8" .DW8»"RH8"»RH8 
7170C 

7180 WRITE! I0UT51019) 

7190 1019FGRMATf " H2 INLET!" ) 

7200 WRITE! I 0UT.944 )"P9 ",P9,*PW9",PW9»"DP93",DP93»“P3 ",P3 

?210&."PW3".PW3» “PH3",PH3»*V3 "» V3»"VH3", VH3, "VW3", VW3»"FH3"» FH3,"V9MSL"» V9MSL 
7220C 

7230 WRITE( I OUT? 1013 ) 

7240 1013FORMAT! “ H2 OUTLET:") 

7250 WRITE! I0UT5944)"P4 "»P4,“DP34“,DP34,"PW4"»PW4,"V4 " , V4,"VC4". VC4, 
7260&"VH4"tVH4»“VKI4"i VN4»"V4SL" *V4SL*"VC4SL“» VC4SL»"VH4SL"» ¥H4SL»"F4 ",F4, 
?270&“FC4" , FC4 »"FH4“ , FH4. "FW4" , FW4, "DW4" . DW4, "CHWRTO" * CHWRTO, "HC VRTO" , HCVKTO 
7280C 

7290 WRITE! IOUT5 1023) 

7300 1023FORMAT(" HEAT BALANCE, MODULES:") 

7310 W RI TE! I OUT » 944 ) "HEATLD" .HEATLD. "DHA" , DHA , "D3H" » DHH ♦ "DHC" * DHC 
732 OC 

7330 WRITE! I OUT *1012 ) 

7340 1012FORMAT!" COOLING AIR:") 

7350 WRITE! I OUT 5944) "P5 "»P5,"DP56"»DP56»"P6 ",P6 
7360&,"V5 "» V5» "T5 ",T5,"T6 ",T6,"HC ".HC, "ETA". ETA 
7370&, "V5A" , V5A . "T6A" . T6A 

7380&»"P12",P12,"V12-»V12."T12".T12»"DP1213".DP1213,"V5MIN",V5MIN 

7390C 

7400 WRITEU OUT; 1041) 

7410 1041F0RMAT! " ACTUAL VOLUMETRIC FLOW RATES:") 

7420 WRITE! I OUT 5 944) "AVI" , AVI, -AV2".AV2."AV3",AV3,"AV4".AV4,"AV5",AY5, 
7430&"AV6"»AV6»"AV6A"» AV6A»"AV7" ,AV7,"AV8“ » AV8»"AV9" » AV9. 
7440&"AV10EX"»AV10EX»"AV11"»AV11,"AY12"»AV12»"AV13"»AV13 
7450C 

7460 WRITE! IOUTJ 1016) 

7470 1016FORMATI" EQUIVALENT WEIGHT:") 

7480 W RI TE! I OUT 5 944 ) "PWRCLB" ♦ PWRCLB t "PWRCTB" .PWRCTB , "PWRPC" » PWRPC , 
7490&"PWREC"»PWREC »"PWRDAU"»PWRDAU»"PWRTOT" *PWRTOT* "HTTOT"»HTTOT» 
7500&"PWRWGT",PWRWGT,"HTWGT".HT¥GT,"H20WGT“»H20WGT."OXWGT",OXWGT. 

751 0&"HRDWGT" .HRDWG T ."EQWGT* . EOWGT 
7520 RETURN 
7530 END 
7540C 

7550 FJNCTIONPHTO(TF) 

7560 DATA A. B.C.D.EE.F.G/3. 2437814. .00586826,1. 1702379E-8, 

7570& .0021878462.5.219603,273. 16,2.3025851 / 

7580 TC»(TF-32. ) /1.0 
7590 X»374.11-TC 
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7600 PHTO=EXP(G*l EE-C X/( TC+F I >*( A+B*X+C*X**3 ) /( 1 .0+D*X ) ) I 

7610 RETURN 
7620 END 
763QC 

7 640 FUNCTION DEWT(P) 

7650 EXTERNAL ROOT,PHTO 
7660 XX=AL OG I P ) 

7670 TA=-2.4+20.25*XX+1.522*XX**2 
7690 TB-TA+.l 

7690 DEWT=ROOT( TA »TB»PHTO,P, .005, . 005, 5 ) 

7700 RETURN 
7710 END 
77200 

7730 FUNCTION TICORI PC, AF, CD, DEL ) 

7740 HEAT, S<5,7) 

7750 DATA S /1 .75187 , - .511449 , . 0775073 , - . 0 0592584, . 0 00179862 , 

77605- 1 .42306, - . 271935, . 0210187 , -.00034839,-1 .8475E-5, 

777 07- 1 . 08190 ♦ - . 1 1 0821 , - . 0031408 , . 00196359 , -8 . 5832E-5 , 

77805: . 90258 , - . 1 05068, . 0025161 , . 00028694, -1 • 3673E-5 , 

77905; .71551 ,-. 072213, .0024297,9. 08E-6, -3.48E-7, 

78005: .61612 , -.055237 , . 0003803, . 00028605, -1 .5623E-5, 

7810& .52087 , 035109, - . 0014939, .00035115, -1 . 4808E-5/ 

7820 P^AMINII PC, 10. ) 

7830 PA=P*I AF/.44 )**l I .84*P+1. )*EXP(-.84*P> ) 

7840 J=CD/5.-l. 

7850 IF( J.LT.l )J=1 

7860 TI1=PA*< S( 1 * J }+PA*< S< 2, J >+PA*( SI 3, J )+PA*l SI 4, J )+PA*SI 5,JI)IH 

7870 IF(J.LT.7)G0 TO 8 

7880 TIC OR=T 1 1 

7890 GOT 09 

7900 8 J=J+1 

7910 TI2=PA*(S(1,J)+PA*<S(2»J)+PA*(SI3,J)+PA*( SI 4, J )+PA*S< 5, J )l ) ) I 

7920 AII=J 

7930 TERP-CD /5 . - A I I 

7940 TIC OR=T 1 2* TERP+T 11*1 l.-TERP) 

7950 9 TICOR=TICOR*l 1. +.03536*1 DEL-18.33 >) 

7960 RETURN 
7970 END 
7980C 

7990 FUNCTION ROOT! XI »X2, YFCN,W,XTOL»YTOL,K > 

8000 COMMON I OUT 

8010 EXTERNAL YFCN 

8020 XA=X1 

8030 XB=X2 

8040 FA-YFCNI XA )-W 

8050 FB=YFCN(XB)-W 

8060 DO 91 IR00T=1,K 

8070 ROOT=( FA*XB-FB*XA ) /( FA-FB ) 

8080 FN=YFCN( ROOT )-W 

8090 IFIABSIFNJ.LT.TTOL .AND. 
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aiOO&ABSt ROOT-XB ) .iT.XTOL ) RETURN 

8110 IFC IROOT .GE.K )WRITE(I0UTS200 )X1.X2»W .XTOL.YTOL. IROOT. 
8120& XA»XBtROOT.FA,FB,FN 

8130 200 FORMAT! " NONCONVERGENCE IN R00T*,5G11.4, 13/7G11 .4 ) 

8140 XA=XB 

8150 XB=ROOT 

8160 FA=FB 

8170 FB=FH 

8180 91 CONTINUE 

8190 RETURN 

8200 END 

8210C 

8220 SUBROUTINE TDRIFT 
8230 REAL N»I 

8240 COMM ONI OUT.CPA»CPH»N* V3» T5»T3,T1,BK( 12 l ♦ 

8250&BLANK( 16 1 .NBLANK , 

8260&PC0 . I » V 1 , HEATLD. DHC . DHA , DHH , DTREQ. DTAVA. Et 

8270&HC , ETA.T2. V5A, T6A 

8280 EXTERNAL ERT.R00T.ERT1 

8290 ENTHPR=V1*CPA*T1+V3*CPH*T3 

8300 T2HIGH=( ENTHPR+.99*HEATLD ) /( V1*CPA+V3*CPH > 

8310 T2L0W=<ENTHPR+V5A*CPA*T5+HEATLD>/( Vl*CPA+Y3*CPH+V5A*CPA ) 

8320 T2=T2HIGH 

8330 DUMMY=ERT( V5A/N) 

8340 I2=R00T( T2HIGH.T2LOW.ERT1.0. , .005. .005,20 ) 

8350 RETURN 
8360 END 
837 OC 

8380 FUNCTION ERT1CT) 

8390 REAL N.I 

8400 COMMONIOUT.CPA.CPH.N. V3.T5.T3.T1 »BK( 12 )» 

841 O&BLANK! 16 ) , NBLANK t 

8420&PC0 » I , VI , HEATLD, DHC , DHA » DHH » DTREQ, DTAVA , E » 

8430&HC .ETA.T2. V5A.T6A 

8440 E=.729-.22 W AL0G< I >+.008*1+. 005*( T-78. ) 

8450 HEATLD=N*I*( 1.25-E )*3.419 
8460 DHA=V1*CPA*(T-T1) 

847 0 DHH=V3*C PH* ( T-T3 ) 

8480 DHC=HEATLD“DHA-DHH 
8490 T6A=T5+DHC/(V5A*CPA> 

8500 DTREQ=DHC*( . 376+3. 876/( HC*ETA ) )/N 
8510 IF(T6A.LT.T»G0T0 1086 
8520 ERT1=-DTREQ 
8530 RETURN 

8540 1086 DTAVA=I T6A-T5 ) /ALOG( ( T-T5 )/( T-T6A ) ) 

8550 ERT 1 =DTA V A- DTREQ 
8560 RETURN 
8570 END 
850OC 

8590 FUNCTION ERT(V) 


C-56 


continued- 



Table 12 - continued 


8600 HEAL N,I 

8610 C0MM0NI0UT»CPA»CPH*N» V3» T5»T3*Tl»BKt 12)* 

8620&BLANK ( 16 > » HBLAHK ♦ 

8630&PC 0 » I » V 1 . HEATLD . DHC ♦ DH A* DHH » DTREQ . DT A V A » E . 

8640&HC *ETA« T2. V5A , T6A 

8650 im.LE.l* )HC=1.97*V**( .3333) 

8660 im.G'f.l. .AND. V. LT. 2.9883 )HC=1 .21+V*< .34+. 42*V ) 

8670 IF( V «GE»2«9883 .AND* V-LE.4. )HC=2.#V 
8680 I Ft V .GT.4. )HC=2. 639016* V**( .8) 

8690 ETAol. 

8700 IFfV.GT*. 32194 .AND* V.LT.24.72)ETA=1.0644-.1135*SQRT( VI 
0710 IF(V.GE.24.72)ETA=2.486/SQRT( V) 

07 20 T6A=T5+DHC /f V*CPA*N ) 

8730 DTREQ=DHC*( .376+3. 876 /( HC*ETA I ) /N 
8740 IF(1'6A.LT.T2)G0 TO 86 
8750 ERT=-DTREQ 
8760 RETURN 

8770 86 DTAVA=( T6A-T5 ) /AL0G( t T2-T5 ) /( T2-T6A ) ) 

8780 ERT=DTA V A-DTREQ 
8790 RETURN 
8800 END 
8810C 

8820 SUBROUTINETI VARNAM*VAR*BOT* TOP* I ) 

8830 COMMON I OUT 

8840 I F( VAR.GE . BOT . AND . VAR • LE . TOP JRETURN 
8850 WRITE( I OUT? 10 JVARNAM* VAR* B0T»T0P 
8860 1=1+1 
8870 RETURN 

8880 10F0RMAT( 1X,A6. W ="»G10.4*" RANGE: n *2G10.4) 

8890 END 
8900C 

8910 SUBROUTINE BMODE 
8920 REAL N,I 

8930 COMMONIOUT»CPA*CPH»N* V3»T5*T3»T1*BK( 12 ) * 

89404-BLANK ( 1 6 )* NBLANK * PC 0 * I * VI 
8950 I=BK( 1 ) 

8960 IF(PC0.LE.BK(2) >GOTO10 
8970 I=BK( 4 ) 

8980 IF(PC0.GE.BK(3) IG0T010 
8990 I=BK( 9 )*PC0+BK( 10 ) 

9000 10 V1=BK(5) 

9010 IF(PC0.LE.BK( 6) IRETURN 
9020 V1=BK(8) 

9030 IF(PC0.GE.BK<7 ) JRETURN 
9040 Vl=BK(ll )*PC0+BK< 12) 

9050 RETURN 
9060 END 
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1. CONDITION: An input variable is out of the prediction range. 

MESSAGE: VARIABLE = XX. XX RANGE: XX. XX XX. XX 

2. CONDITION: Less than 1.3 times stoichiometric amount of ^ is 

supplied. 

MESSAGE: INSUFFICIENT HYDROGEN. XXX. XX SLPM IS REQUIRED. 

3. CONDITION: Cathode air blowers cannot supply the requested flow 

rate. Program sets the flow equal to blower capacity. 

MESSAGE: VI HAS BEEN CHANGED TO 70 SCFM , BLOWER CAPACITY. 

4. CONDITION: Not enough heat is generated in the modules to attain 

the setpoint module temperature. 

MESSAGE: . COOLING BLOWERS ARE OFF. MODULE TEMPERATURE FALLS 

X.XXF BELOW THE DESIRED XX.XXF TO XX.XXF. 

5. CONDITION: Process streams and cooling air cannot remove enough 

heat to maintain th& setpoint module temperature. 

MESSAGE: COOLING BLOWERS ARE ON FULL. MODULE TEMPERATURE RISES 

X.XXF ABOVE THE DESIRED XX.XXF TO XX.XXF. 

6. CONDITION: Normal heat balance is attained. 

MESSAGE: DESIRED MODULE TEMPERATURE IS MAINTAINED WITH COOLING 

BLOWERS AT PARTIAL CAPACITY. 

7. CONDITION: Process air flow does not exceed cathode air plus cooling 

air flow by at least 5%. 

MESSAGE: INSUFFICIENT PROCESS AIR TO PREVENT BACKMIXING THROUGH 

PLENUM BYPASS. 

8. CONDITION: Inlet process air moisture conditions are out of tolerance 

and will not support steady state cell operation. 

MESSAGE: INLET PROCESS AIR DEW POINT DEPRESSION OUT OF RANGE. 

ELECTROLYTE MOISTURE BALANCE IS NOT MAINTAINED. 

9. CONDITION: Outlet process air moisture conditions are out of tolerance 

and will not support steady state cell operation. 

MESSAGE: OUTLET PROCESS AIR DEW POINT DEPRESSION OUT OF RANGE. 

ELECTROLYTE MOISTURE BALANCE IS NOT MAINTAINED. 
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10. CONDITION: Average of inlet and outlet process air moisture condition 

is out of tolerance and will not support steady state cell 
operation. 

MESSAGE: AVERAGE PROCESS AIR DEW POINT DEPRESSION OUT OF RANGE. 

ELECTROLYTE MOISTURE BALANCE IS NOT MAINTAINED. 

11. CONDITION: Convergence subroutine (ROOT) did not approach a solution 

within the specified number of iterations. 


MESSAGE: 


NONCONVERGENCE IN ROOT (PRINT ROOT PARAMETERS) 
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Composite Variable Names 

First Prefix P - (Partial) Pressure, mm Hg 

V - Volume Flow Rate, Scfm 70F, 760 mm Hg 
AV - Volume Flow Rate, Cfm 
F - Mass Flow Rate, Lb/Hr 
DP - Pressure Drop 
DW - Dew Point, F 
T - Temperature, F 
RH - Relative Humidity, % 

Second Prefix C - Carbon Dioxide (C0_) 

0 - Oxygen (0^) 

N - Nitrogen XN ? ) 

H - Hydrogen (H!l) 

W - Water (H„0) 

(None) - Total Stream 

Stream Number 0 - Cabin Atmosphere 

1 - Cathode Air Modules Inlet 

2 - Cathode Air Modules Outlet 

3 - H 2 Modules Inlet 

4 - Modules Outlet 

5 - Cooling Air Inlet 
5A - Cooling Air Inlet, Active Cells 

6 - Cooling Air Outlet 
6A - Cooling Air Outlet, Active Cells 

7 - Process Air Inlet 

8 - Process Air Outlet 

9 - H^ System Inlet 

10 - Plenum Bypass 

11 - Cathode Blowers Outlet 

12 - Cooling Blowers Outlet 

13 - Cooling Dampers Outlet 

Units Suffix (None) - Units of First Prefix 

PSA - Psia 
PSG - Psig 
SL - Slpm 

Additional Variable Names 

A,B,C,D,EE,F,G 
All , J 
CD 

CHWRTO 

Continued- 


Constants in pH 2 0 Dew Point Equation 
Indices Determine S Constants 
Current Density 

C0 2 /H 2 Weight Ratio, Lb C0 2 /Lb H n 
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Table 14 - continued 
CJKN 


COR34,COR93 

CPA 

CPH 

CTRANS 

CURDEN 

DELT1 

DELT1P 

DELIE 

DHA 

DHC 

DHH 

DDP1,DDP2 
DPTDAV 
DROP, RISE 

DTAVA 

DTREQ 

E 

EMOD 
EQWGT 
ERT,ERT1 
E STACK 
ETA 

FA,FB,FN 

FNAME 

HC 

HCON 

HCVRTO 

HEATLD 

HTPEN 

HTTOT 

HTWGT 

H20PEN 

H20WGT 

I 

INP 
I OUT 
MATHIN 
N 

NERROR 


Coefficient in Pressure Drop Equation 

J = Inlet Stream Subscript 
K = Outlet Stream Subscript 
N = Degree of Term 

AP Correction Factors for Absolute Pressure 
Volumetric Specific Heat, Air, Btu/Hr-Scfm-F 
Volumetric Specific Heat, H„, Btu/Hr-Scfm-F 
CO^ Transferred, Lb/Hj 
Current Density, A/Ft z 
Input Control Variable = T2-DP1, F 
Preferred Value Control Variable = T2-DP1, F 
Actual Control Variable = T2-DP1, F 
Enthalpy Gain of Inlet Process Air, Btu/Hr 
Enthalpy Gain of Cooling Air, Btu/Hr 
Enthalpy Gain of Inlet H^, Btu/Hr 
Dew Point Depression, Streams 1 and 2 
Process Air Dew Point Depression, Average, F 
T2- (DWI + DELT1) , Absolute Value of Module 
Temperature Offset 

Log Mean Available Temperature Drop, F 

Required Module - Cooling Air Temperature Drop, F 

Cell Voltage, Volt 

Module (16 Cells) Voltage 

Total System Equation Weight 

Difference Between DTREQ and DTAVA 

Stack Voltage, Volt 

Cooling Fin Efficiency, Dimensionless, 0-1 
Dependent Values Corresponding to XA,XB,XN 
Variable Equal to Output File Name 
Cooling Fin Heat Transfer Coefficient, 

Btu/Hr-Ft -F 

H 0 Consumption, Lb/Hr 

H^/CO Volume Ratio, Scfm H./Scfm CO 

Net Heat Produced, Btu/Hr 

Heat Rejection Penalty, Lb/Btu/Hr 

Total Heat Rejection 

Heat Rejection Penalty Weight 

H^O Vapor Rejection Penalty, Lb/Lb/Hr 

H^O Rejection Penalty Weight 

Current, Amp 

Input Device Code: 2=File, 50=Terminal 
Output Device Code: l=File, 66=Terminal 
Name of Input Data File 
Number of Cells in Circuit 
Check Violation Indicator 

0 - No Violation 

1 - Violation 

continued - 
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Table 14 - continued 


NFL AG, FLAG 

Program Option Integer = 0 or 1 

OCON 

0- Consumption, Lb/Hr 

OXPEN 

0^ Consumption Penalty, Lb/Lb/Hr 

OXWGT 

0^ Consumption Penalty Weight 

P 

Inlet pC0 2 

PA 

Inlet pCO^ Corrected for Effect of Air Flow 

POWER 

Electrical Power Produced, Watt 

PWPEN 

Power Penalty, Lb/Watt 

PWRCLB 

Cooling Blower Power, Watt 

PWRCTB 

Cathode Blower Power, Watt 

PWRDAU 

Data Acquisition Unit Power, Watt 

PWREC 

Emergency Controller Power, Watt 

PWRPC 

Primary Controller Power, Watt 

PWRTOT 

Total Power, Watt 

PWRWGT 

Power Penalty Weight 

QA,QB,QC 

Coefficients of V5 in Quadratic Formula 

S 

Array containing Coefficients of PA in TI 
Correlation 

TA,TB 

Trial Values of Dew Point, F 

TC ,TF 

Dew Point, C, F, respectively 

TE 

Current Efficiency, % 

TERP 

Current Density Interpolation Variable 

TI 

Transfer Index, Lb CO /Lb 0 

T2INP 

Set Point Value of T2^ 

T2P 

Preferred Value of T2 

Til 

TI at one of the seven current densities 
just below the desired current density 

T12 

TI at one of the seven current densities 
just above the desired current density 

U1 

Conversion Factor, mm Hg/Psi 

U2 

Conversion Factor, Scf/Lb Mol 

U3 

Conversion Factor, Btu/^r-Watt 
Conversion Factor, 1/Ft 

U4 

V,TR 

Dummy and Interpolation Variables 

VA,VB 

Trial Values for V5 

V5INP 

Cooling Flow for Set Point Module Temperature 

V5MIN 

Cooling Flow with Blowers Off 

V7M1 

Plenum Inlet Flow less Cathode Air Flow 

V9MSL 

Minimum Flow of Required 

WPROD 

Water Production, Lb/Hr 

XI ,X2,XA,XB,XN 

Trial Values of Independent Variable in 
Subroutine Root 


Additional Variables, Main Program Only 

A0 Output Variable Array 

AVG Array Containing Average TAB Values 

BK Mode B Parameters 

CGEN Numeric Array, CO^ Generation Rates, Lb/Hr 

continued- 
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Table 14 - continued 


HEAD 

HDG 

IGEN 

INDEX 

IR 

KBASE 

KERROR 

KMODE 

KPRINT,NPRINT, 

DPRINT.QPRINT 

MINCYC 

NDAY 

NDT , DT 

NDAYS,DAYS 

NDEX 

NSTEPS 

NT 

QC02GT 

QFIN 

QFOUT 

QPRINT 

QSUBS 

SAME 

SLOPE, SLOPE A, 

SLOPEB,SLOPEC 

TAB 

TMAX 

US 

XA, YA,XB,YB,XC,YC 


Alphabetic Constant Array, Containing Output 
Variable Names 

Array Containing Selected Values of HEAD 

C0„ Generation Step Subscript 

Subscripts of Selected Output Variables 

Out-of-Range Input Variable Counter 

Variable Indicating Range of BASE to be Executed 

Non-Steady State Indicator 

Mode Indicator, 0=Mode A, l=Mode B 


Output Indicators 
Length of One Cycle, Min 
Day Counter 

Integration Increment, Min 
Maximum Number of Days to be Simulated 
Number of Selected Output Variables 
Number of Steps in C0_ Generation Table 
Time, Min 

New CO^ Generation Table Indicator 

File Input Indicator 

File Output Indicator 

Base Program Output Table Indicator 

New Subscript Indicator 

Dummy File Name to Prevent Closing Output File 


pC0 2 Rate of Change, mm Hg/Min 
Array Containing Selected Values of A0 
Ending Times for CO- Generation Rates, Min 
Conversion Factor, — " 

Successive Values of Cabin pC0 2 Approximation 
and Error 
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TABLE 15' KEY TO SELECTIVE OUTPUT VARIABLES 


AVI 

130 

PCI 

86 


RH8 

129 

AVIOEi 

140 

FC2 

94 


SLOP EC 

29 

AV11 

141 

FC4 

104 


Til 

114 

AV 12 

142 

FH3 

89 


T12 

118 

AV13 

143 

FH4 

105 


T2 

13 

AV2 

131 

FW1 

87 


T2P 

80 

AV3 

132 

FW2 

95 


T6 

112 

AV4 

133 

FK4 

106 


T6A 

15 

AV5 

134 

H20WGT 

148 


T8 

128 

AV6 

135 

HC 

11 


TE 

92 

AV6A 

136 

HCON 

53 


TI 

50 

AV7 

137 

HCVRTO 

109 


VI 

3 

AV8 

138 

HEA1LD 

4 


¥10 

32 

AV9 

139 

HTTOT 

145 


V2 

73 

CHVRTO 

108 

HTWGT 

147 


V4 

100 

C02GEN 

30 

I 

2 


V4SL 

101 

COR34 

33 

OCON 

51 


V5 

20 

C0R93 

37 

OXWGT 

149 


V5A 

14 

CTRAHS 

52 

PI 

45 


¥5 1 HP 

31 

CORDEN 

47 

P12 

117 


V5HIH 

19 

DDP1 

76 

P2 

46 


V7M1 

18 

DDP2 

77 

P3 

35 


¥8 

119 

DELT1 

16 

P3PSA 

36 


V9MSL 

17 

BELT IE 

48 

P6 

111 


VC1 

70 

DELTIP 

79 

P7 

42 


VC2 

72 

DHA 

6 

P7PSA 

43 


VC4 

55 

DHC 

5 

P9 

39 


VC4SL 

102 

DHH 

7 

P9PSA 

40 


VC7 

81 

DP12 

44 

PCO 

1 


VC8 

121 

DP1213 

115 

PCI 

49 


VH3 

58 

DP34 

34 

PC2 

93 


VH4 

59 

DP56 

110 

PC8 

122 


VH4SL 

103 

DP? 8 

41 

PH3 

88 


VH1 

68 

DP93 

38 

PN1 

67 


VN7 

84 

DPTDAV 

78 

PN8 

124 


VM8 

123 

DTAVA 

9 

POO 

65 


¥01 

69 

DTREQ 

8 

PC? 

66 


¥02 

71 

DUM1 

21 

POWER 

91 


V 07 

83 

D0M2 

22 

PW1 

60 


¥08 

125 

DUM3 

23 

PW2 

74 


VU1 

61 

DUM4 

24 

PW3 

57 


¥W2 

64 

DUM5 

25 

PW4 

98 


VW3 

62 

DW2 

75 

PW8 

126 


¥W4 

99 

DW4 

97 

PW9 

56 


Vtf 7 

82 

DW8 

127 

PWRCLB 

116 


VW8 

120 

E 

10 

PWRCTB 

113 


VWPROD 

63 

EMOD 

90 

PWRTOT 

144 

» 

WPROD 

54 

EQWGT 

150 

PWRWGT 

146 


YA 

26 

ETA 

12 

RH2 

96 


YB 

27 

F4 

107 

RH7 

85 


YC 

28 
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Clfe Systems, Jhc ; 


Table 15 - continued 


1 

PCO 

51 

OCON 

101 

V4SL 

2 

I 

52 

C TRANS 

102 

VC4SL 

3 

VI 

' 53 

HCON 

103 

VH4SL 

4 

HEATLD 

54 

WPROD 

104 

FC4 

5 

DEC 

55 

VC4 

105 

FH4 

6 

DHA 

56 

PW9 

106 

FW4 

7 

DHH 

57 

PW3 

107 

F4 

8 

DTHEQ 

58 

VH3 

108 

CHKRTO 

9 

DTAVA 

59 

VH4 

109 

HCVRTO 

10 

E 

60 

PW1 

110 

DP56 

11 

HC 

61 

VW1 

111 

P6 

12 

ETA 

62 

YW3 

112 

T6 

13 

T2 

63 

VWPROD 

113 

PWRCTB 

14 

V5A 

64 

VW2 

114 

Til 

15 

T6A 

65 

POO 

115 

DP1213 

16 

DELT1 

66 

P07 

116 

PWRCLB 

17 

V9MSL 

67 

PN1 

117 

P12 

18 

V7M1 

68 

VN1 

118 

T12 

19 

V5MIN 

69 

VOl 

119 

V8 

20 

V5 

70 

VC1 

120 

VW8 

21 

DUK1 

71 

V02 

121 

VC8 

22 

DUM2 

72 

VC2 

122 

PCS 

23 

DU M3 

73 

V2 

123 

VN8 

24 

DUM4 

74 

PW2 

124 

PN8 

25 

DUM5 

75 

DW2 

125 

V08 

26 

YA 

76 

DDP1 

126 

PW8 

27 

YB 

77 

DDP2 

127 

DW8 

28 

YC 

78 

DPTDAV 

128 

T8 

29 

SI OPEC 

79 

DELT1P 

129 

RH8 

30 

C02GEN 

80 

T2P 

130 

AVI 

31 

V5INP 

81 

VC7 

131 

AV2 

32 

V10 

82 

VW7 

132 

AV3 

33 

C0H34 

83 

V07 

133 

AV4 

34 

DP34 

84 

VH7 

134 

AV5 

35 

P3 

85 

RH7 

135 

AV6 

36 

P3PSA 

86 

FC1 

136 

AV6A 

37 

C 0U93 

87 

FW1 

137 

AV7 

38 

DP93 

88 

PII3 

138 

AV8 

39 

P9 

89 

EH3 

139 

AV9 

40 

P9PSA 

90 

EMOD 

140 

AV10EX 

41 

DP78 

91 

POWER 

141 

AV11 

42 

P7 

92 

TE 

142 

AV12 

43 

P7PSA 

93 

PC2 

143 

AV13 

44 

DP12 

94 

FG2 

144 

PWRTOT 

45 

PI 

95 

FW2 

145 

HTTO'T 

46 

P2 

96 

RH2 

146 

PWRVJGT 

47 

CURDEN 

97 

DW4 

147 

HTWGT 

48 

DEI TIE 

98 

PW4 

148 

H20WGT 

49 

PCI 

99 

VW4 

149 

OiWGT 

50 

TI 

100 

V4 

150 

EQWGT 
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TABLE 1 OUTPUT EXAMPLES 


**** MODE B ZERO TO STEAD! STATE PC02 IIMTS 1 ft 2 MMHG **** 
««•«»«**•* i ifpUT DATA*********. 

CABIN ATMOSPHERE: 


POPSA 14.70 

1 

PCO 

0 .1000E-02 

! 

POOPSA 

3.100 

\ 

TO 

70. 00 

VOLUME 8000. 

f 








PROCESS AIR OUTLET/INLET 

♦ 

# 








P8PSA 14.75 

f 

T? 

55.00 

« 

77 

265.0 

1 

DW7 

50.00 

H2 OUTLET /INLET: 









P4PSA 20.00 

• 

T9 

72.00 

1 

V9SL 

10.00 

1 

M9 

69.00 

MODULES: 









N 96.00 

• 

I 

2.586 

1 

DELT1 

22.00 

I 

VI 

20.00 

PENALTY WEIGHT FACTORS: 








Pa’ PEN 0.5910 

! 

HTPEN 

0.1280 

| 

H 2 OP EH 

134.0 

I 

OXPPti 

1536. 

CONTROL: 









KM ODE 1.000 

» 

NFLAG 

1.000 

t 

IMIN 

2.586 

« 

PCIMIN 

1.000 

PCIMAX 2.000 

t 

IMAX 

6.600 

1 

VMIN 

20.00 

1 

PCVMItf 

1.000 

PC V MAX 2.000 

DPRINT 60.00 

1 

I 

VMAX 

60.00 

I 

DAYS 

10.00 

J 

DT 

15.00 

#»***■****#* ft g 5U L j s •*» 

##*< 









PREFERRED VALUE OF DELT1 

IS 23 

.58 UNDER THESE 

CONDITIONS 




SO THAT 73.58 = T2 = 

DW1 

+ DELT1 = 50.00 + 

23 

• 53 * 





MODULES: 










TI 0.8810E-03 

f 

TE 

0.32042-01 

! 

E 

0.5038 

1 

EMOD 

8.061 

CTRANS0.1439E-03 

! 

OCON 

0.1634 

! 

HCON 0. 

2058E-01 

! 

WPROD 

0.1839 

CURDEN 10.60 

j 

HEATLD 633.3 

» 

POWER 

125.1 

$ 



CATHODE AIR INLET: 










PI 763.6 

• 

PCI 

O'. 1004E-02 

i 

PW1 

9.212 

I 

FC1 0. 

1797E-03 

FiVl 0.6742 

\ 

VC1 

0.2632E-04 

i 

VW1 

0.2413 

» 

VOl 

4.218 

VN1 15.54 

f 

Tl 

55.00 

; 

DW1 

50-00 

i 

RH1 

83.20 

CATHODE AIR OUTLET: 










P2 761.9 

1 

DP12 

1.737 

! 

PC2 0. 

1992E-03 

i 

PW2 

11.73 

V2 20.03 

• 

VC2 

0.5239E-05 

♦ 

VW2 

0.3083 

t 

V02 

4.185 

VN2 15.54 

; 

PC2 

0.35772-04 

i 

FW2 

0.8616 

« 

T2 

70 . 64 

DW2 56.58 

Til 104.0 

t 

♦ 

RH2 

61.11 

i 

Pll 

762.6 

♦ 

Vll 

20.03 

PROCESS AIR INLET: 










F7 763.6 

j 

PW7 

9.212 

! 

PN7 

593*4 

9 

VC7 0. 

3487E-03 

VW7 3.197 

! 

V 07 

55.88 

I 

VN7 

205.9 

i 

DU 7 

50.00 

RH7 83*20 

! 









PROCESS AIR OUTLET: 










P8 762.6 

j 

PC8 

0.9426E-03 

; 

V10 

215.7 

i 

DP78 

1.047 

V8 266.0 

! 

VW8 

3.264 

! 

VC8 0 • 3276E-03 

! 

VOS 

55.85 

PW8 9.391 

t 

T8 

61 .24 

t 

DV8 

50.52 

! 

RH8 

67.80 


continued- 
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Table 1 continued 


H2 INLET: 


P9 

1157. 

1 

PW9 

18.15 

DP93 

120.3 

! 

P3 

1037. 

PW3 

16.26 


PH 3 

1021. 

Y3 

0.3531 

« 

VH3 

0.3476 

V'n'3 0. 

5537E-02 

» 

FH3 

0.1087 

V9MSL 

2.423 

• 



H2 OUTLET: 










P4 

1034. 

• 

DP34 

2.890 

PW4 

12.02 

f 

V4 

0.2351 

VC4 0. 

2108E-04 

• 

VH4 

0.2818 

VW4 0. 

3315E-02 

i 

V4£L 

8.074 

VC4SL 0. 

5969E-03 

» 

VH4SL 

7.980 

F4 0. 

9755E-01 

f 

PC 4 0* 

1439E-05 

FH4 0 • 

8814E-01 

t 

FW 4 0 

.9264E-02 

DW4 ’ 

57.28 

i 

CHttATOO. 

1633E-02 

1TCVETOO • 

1337E+05 

» 








HEAT BALANCE 

. MODULES: 









. HBATLD 

633.3 

i 

DHA 

336.6 

DHH 

-.5140 

• 

DHC 

297.2 

COOLING Alii: 










P5 

763.6 

i 

DP 56 

0.3072 

P6 

763.3 

i 

V5 

29.31 

To 

55.00 

i 

T6 

64.42 

HC 

1.327 

i 

ETA 

1.000 

VGA 

29.31 

i 

T6A 

64.42 

P12 

763.3 

t 

V12 

29.31 

T12 

64.42 

i 

DPI 213 

0.7396 

V5MIN 

29.31 

i 



ACTUAL VOLUMETRIC PL OW 

RATES : 







AVI 

19.34 


AV2 

20.01 

1 AV3 

0.2598 

i 

A V4 

0.2093 

AV5 

28.34 


AV6 

28.87 

AV6A 

28.37 

I 

AV7 

256.3 

AV8 

259.8 


AV9 

0.2328 

1 AV10EX 

208.9 

\ 

AV11 

21 • 23 

AV12 

28.87 


AV13 

28.90 

t 





EQUIVALENT WEIGHT: 









PlvilCLB 

0.0000 


PfcIRCTB 

209.8 

P Vi RPC 

136.0 

\ 

PftllEC 

45.00 

Ph'RDAU 

100.0 


Pin'S TOT 

490.8 

'.IT TOT 

2739. 

i 

PbHttGT 

290*1 

HTft'GT 

350.6 


H20ViGT 

24.65 

OX WOT 

250.9 

i 

HKDWGI 

a 17. 9 

EQtfGT 

1734. 










* * **# <»« *<* * D A y 






TIME 

PCO 

I 

VI 

II 

OCOif 

C TRANS 

EQWGT 

it- ieie -If «"2C* Hr Hr Hr 'ir Hr Hr ii "if Hr Hriiie 

0: 0 

0.1000E-02 2.586 

Hi Hr He if ie Hr 

20-00 

0.8810E-03 

0*1634 

0* 1439 E- 03 

1734. 

4 • 

0 *2788 

2.586 

20.00 

0.2408 

0*1634 

0.3933E-01 

1734. 

2: 0 

0*5259 . 

2.586 

20.00 

0.4545 

0.1634 

0.7425E-01 

1734. 

3: 0 

0.7451 

2.586 

20.00 

0*6490 

0.1634 

0.1060 

1734. 

4; 0 

0.9391 

2.586 

20.00 

0-8246 

0.1634 

0.1347 

1734. 
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Table 1 continued 


5: 

0 



63 

1.096 

0 

2.979 

23.92 

?: 

1.196 

0 

3.373 

27.64 

.1: 

1.265 

0 

3.652 

30.62 

C • 

*.-• • 

1.444 

0 

4.367 

37.75 

10 : 

1.659 

0 

5.232 

46.36 

11 : 

1.794 

0 

5.775 

51.78 

12 : 

1.886 

0 

6.141 

55.43 

13 : 

1.922 

0 

6.286 

56.87 

14 : 

1.823 

0 

5.890 

52.92 

15 : 

1.782 

0 

5.726 

51.29 

16 : 

1.822 

0 

5.887 

52.89 

17 : 

1.905 

0 

6.219 

56.20 

18 : 

1.963 

0 

6.451 

58.51 

19 : 

1.948 

0 

6.392 

57.93 

20 : 

1 .842 

0 

5.964 

53.66 

21 : 

1.795 

0 

5.777 

51.79 

22 : 

1.817 

0 

5.867 

52.69 

23 : 

1.818 

0 

5.869 

52.71 

24 : 

1.740 

0 

5.556 

49.60 

1.590 

AVERAGES: 

4.955 

43.60 


1.501 

4.910 

43.16 


1.079 

0.1862 

0.2031 

1806 

1.236 

0.2131 

0.2693 

1903 

1.337 

0.2307 

0.3084 

1980 

1.513 

0.2759 

0.4174 

2197 

1.650 

0*3305 

0.5452 

2458 

1.684 

0.3648 

0.6145 

2605 

1.687 

0.3879 

0.6546 

2700 

1.688 

0.3971 

0.6703 

2736 

1.637 

0.3721 

0.6275 

2635 

1.683 

0.3617 

0.6087 

2592 

1.687 

0.3719 

0 . 6272 

2634 . 

1.688 

0.3928 

0.6631 

2719 

1.686 

0.4075 

0.6872 

2777 

1.687 

0*4038 

0.6813 

2763 

1.687 

0-3768 

0.6357 

2654 

1.684 

0.3649 

0.6146 

2605 

1.686 

0.3706 

0.6250 

2629 

1.686 

0.3707 

0.6252 

2630 

1.675 

0*3510 

0.5880 

2547 

1.616 

0.3130 

0.5057 

2380 

1.400 

0.3102 

0.4724 

2361 
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Table 1 - continued 

2 *#*#####*** 


TIME 


0: 

PCO I VI 

iBHtttjHt** U *Ht # # ###**«**«**** 

0 

TI 

OCON 

CTRAHS 

EG WOT 

1: 

1 • 590 

0 

4.955 

43.60 

1.616 

0.3130 

0.5057 

2380. 

2: 

1 • 490 
o 

4.552 

39.59 

1 . 649 

0.2875 

0.4453 

2259. 

3* 

1.429 

o 

4,309 

37 . 17 

1.601 

0.2722 

0.4086 

2178. 

4: 

1.393 

0 

4.163 

35.71 

1.469. 

0.2630 

0.3863 

2132. 

5: 

1.371 

0 

4.075 

34.84 

1.449 

0.2574 

0.3730 

2104. 

6: 

1.358 

0 

4.023 

34.32 

1.436 

0.2541 

0.3650 

2088. 

7: 

1.360 

0 

3.991 

34.00 

1.429 

0.2521 

0.3602 

2079. 

B: 

1.35? 

0 

4.019 

34.28 

1.435 

0.2539 

0.3644 

2087. 

q» 

1.499 

0 

1 *693 

0 

4.587 

39.94 

1.556 

0 .2898 

0.4507 

2271 . 

10: 

5.367 

47.71 

1 .662 

0.3390 

0.5635 

2495. 

11: 

1.817 

0 

5.864 

52.66 

1.686 

0.3704 

0.6246 

2628. 

1 - 

1.901 

r\ 

6.203 

56. 04 

1.688 

0.3918 

0.6614 

2715. 

J.,c. * 

13: 

\J 

1.933 

0 

6.329 

57.30 

1.688 

0.3998 

0.6748 

2747. 

14: 

1.031 

0 

5.920 

63 .22 

1.687 

0.3740 

0.6309 

2643. 

15: 

1 .787 

0 

5.746 

51.49 

1.683 

0.3630 

0.6111 

2597. 

16: 

1.826 

0 

5.901 

53.03 

1.68? 

0.3728 

0.6280 

2638 . 

1?: 

1 . 907 

0 

6.229 

56.30 

1.688 

0.3955 

0*6642 

2722. 

18: 

1.965 

0 

6.458 

58.58 

1.686 

0.4079 

0.6879 

2779. 

19: 

1.949 

0 

6.397 

57.99 

1.687 

0.4041 

0.6819 

2764. 

20: 

1.842 

0 

5.967 

53.70 

1.687 

0.3770 

0.6361 

2655. 


1.795 

5.779 

51.82 

1.684 

0.3651 

0.6149 

2606. 

continued 


Cife Systems, Jhc, 


Table 1 continued 


21: 

0 




22: 

1.818 

r 

K. 

5.868 

62.71 

1.686 

/c^O t 

1.818 

0 

5.870 

52.72 

1.686 

24: 

1.740 

0 

5.557 

49.61 

1.675 

1.590 

AVERAGES: 

4.955 

43.61 

1.616 


1.686 

5.339 

47.43 

1.613 


DATA********"** 

CABIN ATMOSPHERE: 


POPSA 

14.70 

f 

PCO 

10.00 

; 

VOLUME 

8000. 

♦ 




PROCESS AIR 

OUTLET/INLET 

• 

• 



P8PSA 

14.75 

! 

T7 

55.00 

t 

H2 OUTLET /INLET: 



P4PSA 

20.00 

\ 

T9 

72.00 

! 

MODULES: 




N 

96.00 

i 

I 

6.600 

f 

PENALTY U EIGHT FACTORS 

1 * 
' 4 




Pl.'PSN 

0.5910 

1 

HTPEN 

0.1280 

• 

CONTROL: 





KM ODE 

1.000 

9 

NFLAG 

1.000 

i 

PC I MAX 

2.800 

! 

I MAX 

6.600 

t 

PC V MAX 

2.800 

i 

VMAX 

60.00 

I 

DPR I NT 

60.00 

! 





0.3707 

0.6251 


2 62 V f . 


0.3708 

0 . 6253 


2630. 


0.3510 

0.5881 


2547. 


0.3130 

0.5058 


2380. 


0.3372 

0.5491 


2474. 


POOPSA 

3-100 

1 

TO 


70.00 

¥? 

265.0 

1 

DW 7 


50.00 

V9SL 

10-00 

I 

DS9 


69.00 

DELT1 

22.00 

j 

VI 


60.00 

H20PEN 

134.0 

1 

OX PEN 

1536. 

I MIN 

2.586 

t 

PC I MIN 

2.500 

VMIN 

20.00 

j 

PCVMIN 

2.500 

DAYS 

10*00 

1 

DT 


15.00 




continued - 



Cifc Systems, Jnc. 


Table continued 

‘ TIME 

? C0 I VI 


0 : 0 


1 : 

10.00 

0 

6*600 

60.00 

2 : 

9.318 

0 

6.600 

60 *00 

5 : 

8 • 641 

0 

6.600 

60.00 

4 : 

7 . 96 ? 

0 

6.600 

60.00 

5 : 

7.300 

0 

6.600 

60.00 

6 : 

6 • 642 

0 

6.600 

60.00 

7 s 

5.999 

0 

6.600 

60.00 

8 : 

5.388 

0 

6.600 

60.00 

9 : 

4.968 

0 

6.600 

60.00 

10s 

4.712 

0 

6.600 

60.00 

11s 

4.471 

0 

6.600 

60.00 


4.246 

6.600 

60.00 

12s 

0 




4.008 

. 6.600 

60.00 

13 : 

0 



14 : 

3.645 

0 

6.600 

60.00 

15 : 

3.344 

0 

6.600 

. 60.00 

16 : 

3.149 

0 

. 6.600 

60.00 


3.037 

6.600 

60.00 

17 : 

0 



18 : 

2.936 

0 

• 6.600 

60.00 

10 ! 

2.786 

0 

6.415 

50.16 


2.623 

4.232 

36.41 


continued - 
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Cife Systems, Jhc. 


Table l - continued 


20: 

0 




2*599 

3.912 

33.21 

21: 

0 




2 • 628 

4.292 

37.00 

22: 

0 




2.622 

4.219 

36.27 

23: 

G 




2.573 

3*556 

29.67 

24: 

0 




2*513 

2.764 

21.78 

AVERAGES? 




4.620 

5.953 

53.55 


2 4MMHHHHHHHH* 

TI! 

PCO 

i 

VI 

XXiU 

*H**t 4* 4HHt it «2HH* ## * 

0: 

0 




2.513 

2.764 

21.78 

1 : 

0 




2.505 

2.660 

20.73 

2: 

0 




2.505 

2.649 

20.63 

3: 

0 




2.505 

2.648 

20.62 

4: 

0 




2.505 

2.648 

20.62 

5: 

0 




2.505 

2.648 

20.62 

6: 

0 




2.505 

2.648 

20.62 

7: 

0 




2.514 

2.776 

21.89 

8: 

0 




2.599 

3.909 

33.18 

9: 

0 




2.670 

4.861 

42.67 

10: 

0 




2.688 

5.104 

45.09 

11 : 

0 




2.694 

5.188 

45.93 

12 : 

0 




2.672 

4.882 

42.38 

13 : 

0 




2.593 

3.825 

32.35 


continued - 
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Table 1 

- continued 


14s 

0 




2.593 

3.829 

32.38 

15: 

0 




2.635 

4.388 

37.95 

16: 

0 




2.678 

4.972 

43.77 

1?: 

a 




2.691 

5.141 

45.46 

18: 

0 




2.657 

4.682 

40.89 

19: 

0 




2.599 

3.783 

31.93 

20: 

0 




2.592 

3*820 

32.30 

21: 

a 




2.626 

4.273 

3b. 81 

22 : 

0 

2.622 

4.215 

36.23 

23: 

0 




2.572 

3*. 556 

29.66 

24: 

0 




2.513 

2.764 

21.78 

AVERAGES t 




2.593 

3.827 

32.37 
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